





Chapitre CHHU 


TE, SUITE...) 


CHARNEES SABR 


Et merci à la "LaserJet" et à “La Règle À Calcul" ! 


ité par PPC-PC: J.J. Rousseau = 75081 PARIS 








Boujour à vous tous ! 


Le mois de septembre arrive, et avec lui la fin des vacances. 
Vous êtes nombreux à nous écrire, et à nous envoyer tous vos 
chefs d'oeuvre. Continuez ! 


Ce mois est dominé, dans les milieux informatiques, par le 


Sicob. Nous y serons. Au "4 Temps", durant dix jours, nous 
tiendrons notre stand, aux côtés des autres partenaires HP. 
Passez nous voir... 


Nous soignons notre "service relations extérieures". Plus 
sérieusement, des contacts fructueux se multiplient avec les 
autres membres de la communauté HP, en Europe, et de l'autre 
côté de l'Atlantique. Nous sommes maintenant un Chapitre de 
CHHU, le Club de Richard Nelson (fondateur du mouvement PPC aux 
Etats-Unis). Cela ne va rien changer directement, mais l'accès 
aux sources de l'information deviendra, peut-être, enfin 
possible. / 


Enfin, comme vous allez pouvoir le constater, la maquette du 
Journal est maintenant préparée sur l'imprimante HP "LaserJet" 
(contrôlée bien sûr par nos HP71 et lecteurs de disques). Nous 
sommes sûrs que le résultat vous plaira... 

Nous tenons à remercier tout particulièrement le magasin "La 
Règle A Calcul", ainsi que son Equipe, sans qui ceci n'aurait 
pas été possible. 


Pierre DAVID 
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PPC PARIS SE REUNIT UNE FOIS PAR MOIS 


Comme vous le savez peut être déjà, PPC PARIS se réunit une 
fois par mois, en plein coeur de Paris. Amenez votre 
matériel, votre bonne volonté et vos idées ! Plus vous en 
apporterez, et plus vous en trouverez chez vos collègues de 
PPC. Ces réunions se déroulent de manière très libre, aucun 
ordre du jour, discussion ou autre n'étant imposé. Un 
membre du Bureau est toujours présent. Ainsi, si vous 
désirez remettre votre article tout frais au journal, si 
vous avez des suggestions à faire, si vous voulez vous 
procurer des anciens numéros de JPC, ce sera en principe 
toujours possible. 


Si donc cela vous intéresse, n'hésitez plus un seul instant 
venez nous rejoindre tous les premiers samedi de chaque 
mois, au CENTRE DE JEUNESSE ET DE LOISIRS JEAN VERDIER 

11, rue de Lancry 

75010 PARIS 
Et en montant au deuxième étage, vous entendrez des éclats 
de rire et des discussions passionnées vers la salle 215. 
Attention, toutefois, de venir entre 16 et 19 h. 


Pour l'accès en métro, trois possibilités s'offrent à vous 

à savoir: 

Métro Strasbourg St Denis: sortie Porte St Martin / Bld St 
Denis, coté pairs. 

Métro République: sortie Bld St Martin, coté pairs. 

Métro J. Bonsergent: Sortie Bld Magenta, coté impairs. 


Ah, j'oubliais: JPC est distribué en avant-première lors 
de ces réunions ... A bon entendeur Salut ! 


Les dates des prochaines réunions sont: (16h-19h) 
— Le Samedi 7 septembre 1985 
- Le Samedi 5 octobre 1985 


À Bientôt... 
Pierre DAVID 
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NOUS EN AVONS 


Sont en vente au Club: 


Cartes magnétiques pour HP41 au prix de 150FF + 3,10FF de port Les 50 certes; 

Cartes magnétiques pour HP71B au prix de 91FF + 3,10FF de port Les 10 cartes; 

Cassettes digitales pour HPB2161A: 100 FF pièce, plus 3,10 FF de port par cassette. 
Eproms (2716 & 2732) vierges au prix de 60FF + 3,10FF de port pièce. Pour Les Eproms 
programmées, nous consulter; 

Module TIME (821824) au prix de 4O0FF + 6,50FF de port. Livré avec manuel en français; 
Module QUADRAM (821704) au prix de 400FF + 6,50FF de port; 

Module HPIL (821604) au prix de S70FF + 6,50FF de port. Livré avec manuel en français; 
Pour Les commandes des ZENROM, CCDROM et ROM PANAME nous envoyer 500FF minimum d'arrhes; 
VASH (Listing en anglais des 3 premières pages de La 41) au prix de 170FF + 13,50FF de port; 
Le manuel de service de La 41 (en anglais) au prix de S0FF + 6,50FF de port; 

Le manuel technique du convertisseur (en anglais) au prix de 20FF + 3,20FF de port; 

HPIL Interface Specifications (en anglais) au prix de 80 FF + 9,50 FF de port 

The HPIL Integrated Circuit User's manual (en anglais): 40 FF + 6,50 FF de port 
Interface Kit Technical Guide (en anglais): 15 FF + 3,50 FF de port 

Manuel technique du Minitel R (Ref. 250 Alcatel): 40 FF + 6,50 FF de port 

Les anciens numéros au prix de: 

No 1à 3 au prix de 15FF + 3,20FF de port par numéro, 

No 4 à 10 au prix de 20FF + 3,20FF de port par numéro, 

No 11 à 17 au prix de 25FF + 6,50FF de port par numéro, 

à partir du No 18 au prix de 35FF + 6,50FF de port par numéro. 


Les ports sont Les tarifs PTIT actuels en non urgent. 


ACHATS GROUPES 


Nous assurons des commandes groupées pour ceux qui désirent profiter de notre réduction 
“spécial Club, soit 25% par rapport au prix HP. Pour ceux qui Le désirent, nous assurons 
L'envoi postal en urgent ou en non urgent. Ces achats concernent aussi bien des modules que des 
calcutatrices et autres. 


NOTA: ces deux rubriques "nous en avons’ et “achats groupés", sont des services "Club" que nous 
rendons exclusivement aux membres effectivement inscrits au club et possédant Leur carte de 
membre PPC-PARIS. 
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MUSCLEZ VOTRE HP7S AVEC LE "POD“ (HP82718A) | s'entend) et, bien entendu, La fameuse 
"disquette électronique". Passons donc en revue 
successivement chacun de ces "trois 
| périphériques en un" et des mots-clés Basic qui 
sont ajoutés au 75 dès Le branchement du "Podi 
CIEK de ROM pour ces mots). Après quoi, nous 
| pourrons voir quelques-unes des nouvelles 
applications dorénavant possibles, et ce sans 


“oi” HPBATIBA pour HP7S Ca D 


| nous Limiter au seul terrain de La saisie 
| décentralisée, où HP semble croire cantonnée 
| cette puissante extension du 73. Laquelle n'est 
en rien un substitut à - ou une nouvelle sorte 
de - cassette (nettement plus chère à l'octet, 
d'ailleurs !). Jugez plutôt. 


| BRANCHEMENT AU HP75 





I “Po” HP BATIBA pruc HP 75 C où D 
Sehima d'assemblage 


Ca yest ! On en parlait de façon mystérieuse 
depuis plus d'un an, on savait que "quelque | 
chose” devait venir, pour améliorer Le (seul 
vrai) point faible du 75, sa mémoire. En fait, 
on ne savait pas à quoi pourrait bien ressembler 





La chose, si ce n'est qu'elle devait s'emboiter 
sous Le 75; mais un grand mystère subsistai 
son raccordement se ferait-il via La bo 
HP-IL ou par L'un des "ports d'extension" ? Et 
La mémoire serait-elle une véritable extension 








e 


de La RAM ou une espèce de "super-cassette ? 


Pour aider Le futurologue, d'aucuns avaient 
bien remarqué Les nombreuses similitudes 
internes entre La "Série 80" et le 75 (notamment | 
au niveau de l'Assembleur et du microprocesseur) 
et l'existence d'une "disquette électronique" 
pour le 85. Le secret ayant été | 
particulièrement épais, on n'a rien pu savoir de 
précis, jusqu'à La sortie effective de | 
l'appareil... A présent, on sait que La “boite | 





noire” contient tout à La fois un modem à 





connexion directe évolué, un logiciel de lecture | 
de certains codes à barres (avec HP75D, 








L_ JPC 27 Page 4 





Un croquis d'assemblage explicite a été fait 
pour illustrer cet article; on y voit que 
l'appareil s'emboîte sous Le 75, et s'y connecte 
à deux endroits: par Le Logement des batteries, 
et par celui des logements de modules 
d'extension situé à droite (donc, plus que deux 
Logements disponibles). Remarquons au passage 
que cette dernière connexion est La partie 
fragile du "pod! (à cause du câble en nappe et 
de son ruban de blindage), et que La batterie du 
75 est reportée dans Le "pod" est reportee dans 
Le “pod (notons que ce mot signifie "socle" en 
anglais, ce qui est tout-à-fait justifié par 
l'aspect du 75 après montage...), à côté de 
alimentant Le "pod". 
L'assemblage se fait au moyen de vis Parker. Pas 
de souci pour Les utilisateurs de La ROM 1/0 et 
de VisiCalc: il suffit que Le module 1/0 demeure 
à gauche de l'autre pour éviter tout risque 
d'incompatibilité ! A l'arrière apparaissent Les 
deux prises téléphoniques miniatures du Modem 
(type US), permettant Le branchement de La Ligne 
et du téléphone lui-même. Une échancrure dégage 
le branchement de La boucle HP-IL, du Lecteur de 
codes-barre (HP75D seulement) et du chargeur 
(celle-ci assure La recharge des deux batteries, 
celle du 75 et celle du Pod). 








celle, distincte, 


LE MODEM DIRECT 


C'est un modem tout-à-fait remarquable, aux 
normes Bell (donc non-homologué PTT, et ne 
pouvant pas accéder à TRANSPAC ou aux serveurs 
utilisant Les normes CCITT - à réserver aux 
réseaux intérieurs ou aux serveurs américains ou 
qui acceptent Les normes Bell}, avec composeur 
automatique (impulsions ou  multi-fréquences), 
mode MAuto-Answer", etc... (voir en Annexe). Et 
surtout, il contient son Logiciel intégré (donc, 
contrairement au Modem acoustique HP-IL ou aux 
combinaisons classiques RS-232 plus modem 
externe, il pourra éventuellement être utilisé 
sans Le module "DATACOMM". Les mots-clés Basic 
sont soit de "haut niveau" (par exemple 
INITIALIZE":MODM", "MODEM ON", et Surtout 
MMODINS" et "MODOUT", qui servent à recevoir ou 
envoyer une chaîne, sans se soucier du détail 
des commandes de base du modem. Leur utilisation 
est comparable à celle de MENTIO$" et "SENDIO" 
sur La boucle) ou de "bas niveau" (commande 











directe des fonctions de base du modem par 
caractères de contrôle, par exemple pour 
spécifier la position des tonelités 
intermédiaires, le nombre de sonneries à 
attendre avant de considérer que "ça ne répond 
pas 1“, ou La mise en mode "Voice" (vous 
disposez alors d'un super-composeur de numéros, 
avec une capacité que vous aurez du mal à 
trouver sur Le marché 1). IL y a aussi une 
possibilité de connexion directe de modems (par 
un simple bout de fil, sans téléphone du 
tout 1), par exemple pour relier un 75 et un 110 
Cou un autre 75 lui-aussi muni de "pod: dans ce 
cas, on résout au passage Le problème bien connu 
du 75, à savoir qu'il ne peut être que 
contrôleur, et qu'il n'est donc pas question de 
mettre un autre contrôleur sur La même boucle 
HP-IL ! Sauf un 71, bien entendu 1). Bref, ce 
modem nous ouvre bien des horizons ! 


LECTURE DES CODES-BARRE AVEC UN HP75D 


Le pod contient Les mots-clés permettant à un 
HP75D muni de son Wand (mais dépourvu du module 
de traduction HP82725) de lire certains codes à 
barres (CODE11 et CODE39 - pour Les autres 
codes, ledit module reste nécessaire). Bien 
entendu, Le HP75C n'est pas concerné (et une 
tentative d'utilisation de ces fonctions Le 
bloquera pendant quelques minutes - sans autre 
dommage, d'ailleurs 1). 
LA "DISQUETTE ELECTRONIQUE" 

Le term suggère "quelque chose qui 
s'utiliserait comme une cassette", c'est-à-dire 
pour faire de La sauvegarde de fichiers et rien 
d'autre... C'es un peu court ! Certes on ne peut 
pas EXECUTER un programme em mémoire étendue, 
mais par contre on peut créer et exploiter en 
accès par enregistrement (accès direct) de très 
gros fichiers. Ainsi Le programme: 


10 ASSIGN # 1 TO "FICHIER:XMEM",BASIC 
11 DIM A1$[20] ,A2$[15] 

50 FOR 1=1 TO 1600 

51 INPUT“Nom?";A1$ 

52 INPUT "Prenom?" ;A2$ 

53 PRINT #1,1;A1$,A2$ 

54 NEXT ! 
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construit en mémoire étendue un fichier de 
1600 * (20+15) = 56K octets, qui pourra être 
traité par un programme Basic (pouvant à La 
limite occuper La plus grande partie de La 
mémoire du 75 1). De plus, on peut transférer 
directement ce fichier de 56K sur cassette ou 
disquette en faisant COPY "FICHIER:XMEM" TO ":M1m. 
Résumons  - nous. La partie “disquette 
électronique" étend Le domaine d'utilisation de 
certains mots-clés (ASSIGN#, CAT, COPY, PRINT#, 
PURGE, RENAME, RESTORE) et crée l'unité ":XMEM". 
Une seule petite restriction à ces extensions 
concerne Les mots-clés de La ROM 1/0 ayant trait 
aux fichiers (LASTLN?, LINELEN#, PRINTAUSING, 
REPLACE#, SEARCH# et SEEK#), qui n'ont pas été 
étendus au pod. A propos, Le HP75 traite de 
façon particulière Les mots-clés communs avec Le 


il considère que Leur forme abrégée ne concerne 
pas Le pod, mais seulement Le 75 ou ses 
périphériques standard (ainsi,  PU.MFICHIER:XME! 

donnera l'erreur “invalid argument", alors que 
PURGE "FICHIER:XMEM" passera normalement). 


Et ce n'est pas tout ! (Ici, roulement de 
tambours 1). Le "pod! a une structure de 
catalogue hiérarchique et, à l'instar de MS-DOS, 
sait gérer Les sous-répertoires ! En d'autres 
termes, rien n'empêche de créer des noms de 
fichiers de La forme 
MRACINE>DIR1>...>DIRN>FICHIER", et de travailler 
sur ce que MS-DOS appelle des “chemins”; de 
faire des PURGE sélectifs (tous Les "fils" de 
DIR4, par exemple), d'éditer des sous-catalogues 
en utilisant des caractères-jokers (Lister Les 
noms de La forme MHP41----" ou MHP-->COM---"). 
Des mots-clés sont fournis pour ce faire  (CREATE 
DIR, DIR IS, PURGE DIR, REMOVE, XCATS et XDIRS). 
Sans oublier XMEM et MAX XMEM pour savoir de 
combien  d'octets on dispose. 
quand-même, il n'y a pas de protection des 
fichiers en :XMEM (c'est Le revers de La 
médaille: ni PASSWORDS, ni SECURE comme sur Le 
71, ni bien entendu PRIVATE), et La PURGE d'un 
sous-répertoire est TRES puissante ! 

Précisons qu'il y a sept niveaux hiérarchiques 
possibles, et que Les homonymies de nom de 
fichier sont admises, à La condition que Les 


Attention 
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fichiers résident dans des sous-répertoires 
distincts. 


CE QUI N'EST PAS DANS LA BROCHURE 


Le manuel est remarquablement clair et 
abondamment illustré d'exemples. IL est, sur ce 
plan, très au-dessus du manuel de La ROM 1/0, 
qui nous avait tous laissés sur notre faim. 
Toutefois, il y a aussi dans le pod des 
“instructions cachées", que vous n'y trouverez 
donc pas (ce sont ICAT$, IDIR, IMEM et MAX IMEM 
dans La ROM #5011, MODINS et MODOUT* dans La ROM 
#5021). Il ya aussi un très joli poème, mais 
c'est à vous, ami Lecteur, de Le trouver ! Plus 
un "périphérique caché", dénommé ":1MEM" 


QUELQUES IDEES D'APPLICATIONS NOUVELLES 


En guise de conclusion... Passons sur Les 
possibilités évidentes de saisie de 
codes-barres, et regardons plutôt du côté de La 
gestion de fichiers. On peut par exemple 
réserver La précieuse mémoire du 75 pour Les 
programmes et zones de travail, et L'XMEM pour 
des fichiers en accès direct. Ou même indexé, 
avec table d'index résidant dans Le 75 (matrice 
ou tableau alpha, puisque c'est rendu possible 
par La ROM 1/0). Des tris assez importants 
deviennent faisables, et c'est mille fois plus 
commode que de faire de l'accès par 
enregistrement sur cassette ou disquette (avec 
HPILCMDS...), ces appareils n'étant pas vraiment 
prévus pour cela (pensez à vos batteries 1). 

La place disponible permet aussi de fusionner 
ou restructurer des fichiers TEXT ou DATA, par 
recopie sélective au moyen de READ# et PRINTÉ. 

Si, plutôt que de gros fichiers, il faut loger 
de gros programmes, on peut faire des 
enchaïnements au moyen des extensions de CALL ou 
CHAIN offertes par La ROM 1/0 (soit:  CALL 
“nom:XMEM“ (Liste vars), et Le point d'entrée 
SUB:nom(Liste vars) dans Le programme appelé). 


On Le voit, Les possibilités sont grandes; 
disposer de 64K rien que pour ses données, en 
plus des près de 24K de La mémoire centrale du 
75, dans un volume de 29*17*6 cm, c'est mieux 
qu'aucun des plus puissants "8 bits" du marché. 
Alors, ne revendez pas votre 75 tout de suite ! 





POST-SCRIPTUM: L'essai du "pod" avait été fait 
quelques jours avant La réunion de juin. Depuis, 
divers recoupements ont permis d'apprendre que 
Les "instructions cachées” et autres sont ce qui 
reste d'un beau projet avorté, qui aurait fait 
du “pod une extension à part entière de La 
mémoire du 75, avec partage modifiable des 32 ou 
64K entre XMEM (la M"disquette") et IMEM (la 
“vraie mémoire", si L'on peut dire...). Dommage, 
mais convenons que ce qui reste n'est pas si mal ! 


J'ajoute pour finir que, ayant pu développer 
grâce au "pod" notamment un Logiciel de 
consolidation par blocs de très grandes feuilles 
Visicalc (taille telle que La présence 
simultanée des deux feuilles à consolider en MEV 
est impossible 1), et éviter de ce fait d'avoir 
à troquer mon 75 contre un de ses concurrents, 
plus "musclé en mémoire", mais n'ayant que des 
“tableurs bébêtes", sans Les extensions VisiCalc 
du 75 (permettant 
sous-programmes depuis toute case, ce qui est 
tellement plus souple que d'utiliser des 
colonnes pour les calculs intermediaires, 
notamment quand il y a des branchements...), je 
ne pense plus du tout qu'il s'agisse d'un 
“gadget coûteux" dont lon ne voit pas qui peut 
en avoir besoin" (Qui habet aures audiendi, 
audiat). 


l'utilisation de 


ERIC GENGOUX (P#108) 


Pierre ANTOINE 

5 rue St Antoine 
91150 ETAMPES 

Tél: (6) 494 54 54 


X-Fonctions 200 F } Les 3 modules: 
2 X-Mémoires 2x200F 3} 500 F 
Time 300 F 

Extended 1/0 400 F 





HPIL Devel. 
HPIL 
- MLDL: 1000 F 


Le matériel est vendu avec l'emballage d'origine 
et Les manuels d'utilisation. 


VASM: 50 F 

Anciens numéros: 

HP Key Notes 

PPC-T 3 Nunéros antérieurs à L'apparition 
MICRO REVUE } du HP71B. Articles sur HP41, codes 
JPC 3 barres, Programmation synthétique. 
Au fond de La HP41 

Curve fitting for programmable calculators 
Listing microcode HPIL, Time, Extended 1/0 

HPIL Devel.… 


France Bilan Informatique S.A. 

10 rue Cambon 

75001 PARIS 

Tél: (1) 296 35 04 

vend: 

- 1 Lecteur de cassettes HPIL CHP82161A), neuf, 
jamais servi: 3000 F 
Une imprimante HP829058 interfacée HPIB, 5000 F 
Une table traçante HP7475A interfacée HPIB, 
neuve, jamais servie: 15000 F 
2 ordinateurs HP150 A, 2x270Ko: 22000 F chaque. 
Une unité de disques 3"1/2 2x270Ko CHP9121D) 
interfacée HPIB et RS232: 8000 F 
Nombreux Logiciels pour HP120 (Visicale, 
Wordstar, DSNLink...) 


Pierre COLIGNON 

24 bis rte de Corbeil 

91360 VILLEMOISSON 

Tél: 904 00 47 

Vend: un lecteur de cassettes HP82161A: 2700 FF 


Michel MARTINET 

17, rue Eugène Hénaff 
93200 ST DENIS 

Tél: (1) 822 01 49 
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Vend: 1 HP75C + module d'extension 8 Ko 
+ module traitement de texte 
+ module Visicale 
+ très nombreux Logiciels... 
5900 Frs. 


Cher Président 


Je remarque sur 
“Pensez 
Soyez 
m'étonne de 
Lorsque 
après, 


L'enveloppe du dernier JPC: 
à renouveler votre abonnement, merci". 
crainte, j'y pense, bien que je 
L'augmentation du tarif: 150 F 
je me suis inscrit, 300 F moins 


sans 


d'un an 
sera-t-il à 600 F l'année prochaine ? Je 
voudrais réduction pour Les 
étudiants s'applique à ceux qui ont interrompu 
leurs études pour partir au service militaire ? 
Ca m'arrangerait, car je suis dans ce cas. 


savoir si La 


D'autre part, je souhaiterais deux 
renseignements : 
- Les caractères accentués, dans Le tableau du 


uPc17, page 31, correspondant au jeu de 
caractères secondaire de l'imprimante  HP829058 
peuvent-ils être également imprimés par une 
ThinkJet, l'une des interfaces 
vidéo (si oui, Laquelle ?) ou encore par 
à cristaux liquides annoncé dans JPC21 ? 
- L'éditeur 
module du même nom, ou celui 


et affichés par 
L'écran 


de texte (que ce soit celui du 
du module Forth) 
de travailler sur un fichier texte qui 
cassette (ou sur 
disquette) sans avoir à Le copier en mémoire 
centrale ? Autrement dit, peut-on éditer un 
texte dont La taille ne serait pas Limitée par 
La capacité du HP71, mais uniquement par celle 
de La cassette ou disquette ? 


permet-il 


serait enregistré- sur 


merci d'avance, et Longue vie au Club. 
Jean-Michel Kéfaloucos (P140) 
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Cher Jean-Michel 


Ta lettre, et Les questions 
mérite l'attention. 
En effet, Le prix de 


qu'elle pose, 


l'adhésion/abonnement est 


passé de 150 F à 300 F. D'accord. Mais regarde 
et compare. Ne préfère-tu pas Le Journal tel 
qu'il est maintenant au Journal tel qu'il était 
quand La cotisation valait 150 F ? 

Le Journal n'est pas une revue, mais un 
bulletin de Liaison entre Les membres du Club. 


Le Clubest une association régie par La Loi 
de 1901, sans salarié, et ne fait aucun bénéfice. 
300 F pour un Journal mensuel de 75 pages 
remplies, 
HP, cela 


bien 
format A6, uniquement sur Le matériel 
semble pas très cher, 
personnellement. D'autant plus que pour te faire 
payer moins, nous ne prenons pas de secrétaire, 
et tout Le journal, y compris ta Lettre 
manuscrite, est recopié par des membres bénévoles. 
Quant à La réduction Etudiant, elle s'applique 
également aux militaires. Tu peux 
bénéficier de l'adhésion à 250 F. 


ne me 


donc 


Le tableau de caractères paru dans UJPC21 est 
compatible avec La ThinkJet. 
appelle Le jeu "Roman8", et qui 
evec toutes Les imprimantes HP 


C'est ce qu'on 
est compatible 
récemment venues 


CHP829058, Thinket, Laserdet...). C'est un 
élément du PCL (Printer Command Language) 
développé par HP pour justement éviter Les 


problèmes dûüs à une incompatiblité. 


Note quand même que Le jeu paru n'est pas 
complet. Seuls y figurent Les caractères dont 
Les membres ont besoin pour taper Les articles 
qu'ils destinent au Journal. 

Quant aux interfaces vidéo qui permettent 
d'afficher ces accents, elles sont rares. 
L'interface HP (32 colonnes) et La PAC Screen 


Cgraphique allemande) ne 
minuscules accentuées, et Les remplacent par Le 
cristaux 
alentours 


reconnaissent pas Les 


jeu normal en vidéo inverse. L'écran à 
liquides est toujours aussi cher (aux 
de 8000 F aux Etats-Unis), et je ne connais 
personne qui l'ait acheté. Je ne peux donc pas 
te répondre. 

Seule l'interface vidéo 80 colonnes Mountain 
Computer possède un jeu "Roman8“ peut 
afficher J'en ai 


donc 


les caractères accentués. 





récemment acheté une, il faut compter 3700 F, 
frais de douane compris. Je l'ai commandé à 
EduCalc aux USA. 


L'éditeur de texte ne permet pas de gérer Les 
fichiers sur disque ou cassette. C'est un 
regret. J'ai personnel lement résolu 
(temporairement) Le problème en achetant un 
module HHP 32 Ko Ram + 32 Ko Eprom. 


Amicalement, 
Pierre DAVID (SIG1 P37 CHHUS16) 


PROBLEMES DE BATTERIES 
LECTEUR DE DISQUES 


Ceux d'entre vous qui ont La chance de posséder 
un Lecteur de disques HP9114A savent Le 
problème. Au bout de 40 m d'utilisation 
continue, selon HP, Les batteries flanchent. En 
fait, certaines batteries ne tiennent maintenant 
pas plus de deux minutes. 

Et, en plus, brancher Le chargeur (le chargeur 
Standard HP) ne suffit pas. Le Lecteur consomme 
tellement (1,6 A), et Le chargeur est tellement 
faible que La seule chose à faire, Lorsque L'on 
voit La Lumière rouge clignoter, est de stopper 
toute activité. 


Pour remédier à ce problème, nous vous 
proposons un montage, peut-être pas Le meilleur 
éléctriquement parlant. Mais il fonctionne et, 
sans Lui, JPC ne pourrait pas être réalisé... 


Nous avons jugé utile de vous Le présenter. 
Sachez que La garantie n'est plus valide dès 
Lors que vous démontez La batterie. Mais HP, 
c'est solide ! 


Vous trouverez l'alimentation stabilisés dans 
tous Les bons magasins d'éléctronique. Celle que 





nous utilisons est une ELC, modèle AL784, qui 
coûte 370 F. Elle contient un potentiomètre à 
L'intérieur, qui permet d'ajuster La tension. 


Bons montages... 
E. GENGOUX, 
M. MARTINET, 

P. DAVID, 
J.J. DHENIN, 
et S. BARIZIEN. 
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RENFORCEMENT ALIM. DISQUETTE HP9114A 


Pas 
c Feeo| { [ élément 
ï alterne, 
% Pb. aélifié 
GvVolts 









NB: celle niigtance, qui sut 
+ de" Fusible (#4 Ma), peut 
être pontée sans inconvénient 


prise res disquette 





Carte chargeur à bnsion este. À 
HPp23-129435 





Fig. 4 - Schèma alimentation HP 


Michel MARTINET + Ernie GENGOUX 07/85 


Diode dr. Jnber 


3 Amp. Gant) 
— 7 3(8) h 
RS) (art 5) 


a vide 














Alim. stabilisée © 
434V 5 Amp. 
rialie à Volts © 







Fig-2 - Montage à brancher aux bornes de Pa bakere 


Mesures effectnees su la disquele: 
Intensité a repos & 200 mA 


Intensité en activité: . à 
- avec accès disque A,6A (legerement plus au spin-up ) 
- après 20 secondes % 0,9 À 


- retour au mpos ap®s 2 minukes env., 0,2 A. 





Note concernant le œalage de l'alim, stabilisée = 

Ln'estpas Meessaire d'avoir une alim. variable: la plapart 
des alim. fixes comportent un potentiomëtre ajustable intérieur 
permettant de “descendre” de 43,5 V à 4/3,5V. 

L'accu. au plomb est prevu pour ètre charge à knsion 
constante (valeurs indiquées sur l'élément). La diode évite à 
l'accu. de débites dans l'alim, l'intec tune précaution supplèm®. 

L'alim, doit pouvoir fournir au moins 3 Amp. (soit le contant 
de charge de l'aceu,plins 4,6 À. avec une marge ponr le"spin-up"). 
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KIBUR: REMUE-MENINGES 

DES QUILLES SANS COMPTER 

IL NE FAUT PAS JOUER AVEC LE FEU ! 


CALCUL DES PHASES DE LA LUNE 
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CHOC EN RETOUR 
EXECUTION DE PROGRAMMES EN MEMOIRE ETENDUE 


de fais suîte à La parution dans JPC No 25 de 
mon programme MOBM et j'y apporte deux 
rectificatifs. En effet, La Ligne O4 SF 21 
n'a d'utilité que si l'on envisage d'utiliser 
l'imprimante. Cette Ligne peut 
supprimée mais il convient alors de changer à La 
Ligne 105, AVIEW par PROMPT. 


donc être 


Par ailleurs, en utilisant Le programme "en 


site", je me suis aperçu d'une petite anomalie 
si L'on passe minuit. IL convient donc de 
rajouter après 73 FIX 2, DATE STO 08, ainsi 
qu'après 135 RON, RCL 08 DATE STO 08 DDAYS 
tre 

je me suis rendu compte qu'il 
fait possible de faire tourner 


D'autre part, 
était 
n'importe 
quelle que soit 


tout à 
quel programme stocké en X-Fonction, 
sa position (ou presque), mais 
avec restrictions sur Les GTO 


alphabétiques. 


quelques 


Pour cela, il suffit de disposer du CRIC, et de 


faire préalablement un peu de "spéléologie", 


afin de reconnaître Les Lieux. 
Comme Le savent tous ceux qui ont fait de La 

synthétique, la 
commence au registre 0C0 


table 
d'assignation Cadresse 
absolue en hexadécimal), pour remonter vers 01, 
OC2, etc... 


programmation 


Le module X-Fonction commence quant à lui à 
l'octet 1001, et descend dans Les registres OBF, 
OBE, etc... 

Comme nous allons Le voir, il est très facile 
de se promener dans Les differents programmes et 
fichiers. Plus exactement, tout va bien jusqu'au 
fichier à cheval sur Le module X-Fonction et un 
deuxième module X-Memory. Là, 
choses 


on trouve des 
bizarroïdes, dans mon cas à partir de 
1041, puis on tombe tout de suite dans 
Les registres d'état, à O0F. Après Les registres 
d'état, La suite du programe 
commencé dans Le X-Fonction. 


L'octet 


vous retrouvez 
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Mais alors Là, accrochez-vous. RCL b et "AD" 
Cf. "La programmation synthétique de La HP 41") 
donne des adresses du genre DFFF, SFEF, 3FE8, 
et STO b, qui fonctionne parfaitement 
module, ne replace plus Le 


etc... 


dans Le premier 


pointeur à l'endroit où L'on se trouvait. 


La méthode. Pour vous placer 
quelconque, il faut tout 
Lignes de votre 
savent 


Mais revenons à 
sur un programme 
d'abord connaître Le nombre de 
table d'assignation. Pour cela (ceux qui 
sautent au paragraphe suivant) faire : 
GTO .. , CRIC, passer en mode ‘PRGM!, et SST 
jusqu'au END. 

IL faut ensuite faire un GTO. numéro de 
Ligne supérieur de 1 au nombre de Lignes de La 
table d'assignation. Par exemple, si vous 
45 END, faire GTO. 066 . Vous vous retrouvez 
alors en plein sur Le label du premier 
programe, L'hypothèse où Le premier 
en X-Fonction est un fichier 
bien entendu. 


avec un 


avez 


dans 


fichier programme, 


Pour se rendre en tête du programme suivant, il 


faut connaître Le nombre de lignes du programme 
dans Lequel vous êtes, et Les ajouter au numéro 
de Ligne du Label, en soustrayant 1. 

Exempie: un progamme de 116 Lignes, après un 


Label en 46 vous amène au END à La Ligne 161. 





Faîtes alors vous retrouver en 
remarquerez que 
deux registres 


La nature du 


GTO. 162 pour 


tête du fichier suivant. Vous 


chaque fichier démarre par 


contenant des informations sur 
son nom, sa taille... Mais cela est une 


autre histoire. 


fichier, 


A partir de Là, il devient très facile de 
dresser une "carte" de votre X-Fonction et de 
votre X-Memory, donnant Les numéros de ligne des 
Labels des programmes en mémoire. 

Vous pouvez alors vous placer en tête de 
n'importe quel fichier par GTO.. , puis GTO. nm, 
voire même GTO EEX nnn pour les numéros de Ligne 
supérieurs à 999. 


A L'heure actuelle, je ne suis parvenu à faire 





tourner d'une façon satisfaisante que Les 
programmes situés dans Le X-Fonction. IL faut 


seulement éliminer Les GTO alphabétiques. 


Quant à ceux situés dans Le second module, ils 
tournent pendant quelques Lignes, et on se 
retrouve en plein milieu d'un programme situé en 
mémoire principale à La première occasion. 


Je vous souhaite un bon voyage au centre de 
votre HP-41. 


Amicalement, 
Denis CASTELAIN. 


KIBUR: REMUE-MENINGES 


L'arrivée des vacances m'a inspiré quelques 
programmes (de jeux) un peu moins cérébraux que 
mes dernières cogitations sur La récursivité. 
Ils sont au nombre de trois: 


MKIBUR" CRUBIK pour Les initiés) ou comment 
remettre dans l'ordre les 10 premières lettres 
de l'alphabet. 


"Bou" pour Les amateurs de bouling qui ne 
veulent pas compter Les points, La HP61 s'en 
chargera. 


Enfin  "NIM“, le célèbre jeu d'allumettes 
(décourageant 1!!! La HP gagne toujours ou 
presque). 


Vous trouverez "BOW" et MNIM“ plus Loin. Pour 
Le moment, voyons comment utiliser "KIBUR": 


Programme “KIBUR“: 320 octets de programme, 7 
registres de données. Le but est de remettre 
dans l'ordre Les 10 premières Lettres de 





L'atphebet à partir d'une combinaison en 
désordre de ces lettres, numérotées de 0 à 9. 
Loi: si vous jouez La lettre numéro X, il y a 
permutation des Lettres numéro X-1 et X+1 et des 
Lettres numéro 0 et X. Pour Le cas où X=0, il y 
a permutation de La Lettre numéro 1 et de la 
Lettre numéro 9. 
Trois options sont possibles: 
+ MKIBUR": La machine mélange elle-même Les 
lettres. 
- MKIBIN": vous entrez vous-même votre combinaison 
de départ (essayez "JIHGFEDCBA"). 
- "KIBIS": permet de rejouer avec La combinaison 
initiale. 
A chaque coup, La machine affiche Les dix 
lettres et Le nombre de coup joués. 
Exemple : XEQ MKIBUR" -> FDABIHGECJ : 0 
2 R/S 
ABFDIHGECS : 
Oo R/S 
AJFDIHGECJ : 2 etc... 


Bonnes Vacances. 


Christian. 


NDLR : Vous trouverez plus de détails sur KIBUR 
dans l'article de Robert Pulluard paru dans L'OP 
No 3. 


O1*LBL "KIBIN" 
AON "COMBINAISON" 
PROMPT AOFF SF 00 
SF 01 XEQ 04 


OS*L3L "KIBUR" 

RCL O0 MSEMENCE?" X=0? 
PROMPT STO 00 10 

STO 04 O STO 01 

FS?C 00 GTO 02 
MABCDEFGHIJ" XEQ 04 


23*L8L 00 
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RCL 00 9821 * .211327 
+ FRC STO 00 10 * 
INT XEQ 01 SF 01 
XEQ 04 DSE 04 GTO 00 


39*LBL 02 

FIX O XEQ 03 “fin 
ARCL 01 PROMPT XEQ 01 
XEQ 04 XEQ 03 1 

ST+ 01 ASTO X ASHF 
ASTO Z MABCDEF" ASTO Y 
MGHIJ" ASTO T X#Y? 
GTO 02 RDN RDN X#Y? 
GTO 02 "bbGAGNE" 
AVIEW PSE CLA MEN bi 
ARCL 01 "f-b COUPS" 
PROMPT 


71*LBL 01 
XEQ 03 X#0? GTO a -1 
AROT SF 00 GTO b 


79*LBL à 

1 + ATOX X@Y 2 - 
AROT ATOX X<> Z XTOA 
RDN 1 + CHS AROT 
X<>Y XTOA X<>Y CHS 2 
+ AROT 


102*L8L b 

ATOX 1 AROT RDN ATOX 
X<>Y XTOA -2 AROT 
X<> Z XTOA FS?C 00 
RIN X<> T 2 + CHS 
AROT RTN 


122*L8L "KIBIS" 
CLA ARCL 02 ARCL 03 
XEQ 04 O STO 01 
GTO 02 


130*L8L 03 
CLA ARCL 05 ARCL 06 
RTN 


135*L8L 04 

ASTO 05 FS? 01 ASTO 02 
ASHF ASTO 06 FS?2C 01 
ASTO 03 .END. 
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DES QUILLES SANS COMPTER 
PROGRAMME 1BOW'! 





Programme "BOu": 389 octets de programme et 2+n 
«n=nombre de joueurs) registres de données. Ce 
programme compte Les points Lors d'une partie de 
bowling à plusieurs joueurs. 


Rappel: "STRIKE", toutes Les quilles descendues 
avec La première boule. MSPARE": toutes Les 
quilles descendues avec 2 boules. On calcule Le 
STRIKE en ajoutant Les points des 2 boules qui 
suivent et Le SPARE avec Les points de La 
première boule qui suit. IL s'ensuit qu'à un 
moment donné, on ne peut pas toujours connaître 
Le total de points d'un joueur. 


A L'affichage, un STRIKE au coup précédent est 
rappelé par #i et un SPARE par "/". B1? et B27 
demandent Le nombre de quilles abattues à La 
première boule, puis à La deuxième (BOULE +? et 
BOULE ++? en cas de SPARE et de STRIKE au 
dernier coup=1 ou 2 boules supplémentaires). 
L'affichage indique dans L'ordre: Le numéro du 
joueur, ses points calculables, "bi, n/ ou m#n 
du coup précédent (rien, SPARE ou STRIKE) et La 
boule demandée. 


Exemple: XEQ "BOW" -> nombre de joueurs? 1 R/S 


1 - 000: 81? 5 R/S 
1 - 000: 5 82? & R/S 
1 - 009: 81? 10 R/S (STRIKE) 
1 - 019: * 81? 8 R/S 
1- 019: * 8 B22 2 R/S (SPARE) 
1- 039: / 81? etc... 


A La fin, La machine indique Le numéro du 
joueur, Le nombre de points : #* points ; R/S 
pour Les résultats des autres joueurs ou pour 
rejouer. 


Christian JEGOUZO 








O1*LBL "Bow" 

CLRG FIX O Eî STO 00 
“ND JOUEURS?" PROMPT 
E+ E3/2+ 

STO 01 


15*LBL 15 
RCL IND O1 FRC E2 * 
XGF XEQ 19 “HB17" 


23*LBL 09 

PROMPT E1 X<Y? 

GTO 09 RDN "f-b" 

XEQ 17 ARCL X AVIEW 
ET X#Y? GTO 16 XF 
#0? GTO 05 10.02 
X&Y X&F RDN GTO 02 


4&*LSL 05 

X<>F FS? 02 30.04 
FS? 01 20.04 FS? 00 
29.02 GTO 02 


53*L8L 16 

DN FS?C 00 ST+ IND 01 
“Hb 822" PROMPT XEQ 17 
MH" ARCL X AVIEW 

RCL Y RCL Y + 11 

X>Y? GTO 00 R° GTO 01 


71*L8L 00 

DN STO M X<>F X#07 
GTO 07 X<>F RCL M 
GTO 08 


80*L8L 07 
XF 2 * RCLZ 
FS? 02 + FS? O1 RDN 


89*LBL 08 

RCL M E1 X=Y? SF 00 
O RCL T FS? 00 E-2 

+ 

99*LBL 02 

RCL IND O9 INT + 

STO IND 01 RCL 00 € 
X#Y? GTO 03 RCL IND 01 





FRC X=0? GTO 03 E2 
* XF MBOULE +2" 
PROMPT FC?2C 00 GTO 10 
2 * ST+ IND 01 GTO 03 


123*L8L 10 

MBOULE ++?" PROMPT 
RL YREY+2* 
RCL Z FS?C 01 RDN 
FS2C 02 + ST+ IND 01 


137*L8L 03 
1SG 01 GTO 15 XEQ 18 
DSE 00 GTO 15 


143*L8L 04 

XEQ 19 “fb" RCL IND 01 
INT FIX O ARCE X 
PROMPT 1SG 01 GTO 04 
GTO "BOU" 


154*L8L 18 
RCL 01 FRC 2 + 
STO 01 RTN 


161*L8L 19 

CLA RCL 01 E- 

ARCL X Mfh-" RCL IND 01 
E2 XY? MO" Et / 
X>Y? “Ho" ARCL Y 
mbbiu FS? 00 py" 
FS? 01 SF 04 FS? 02 

SF 04 FS2C 06 fun 
RTN 


187*L8L 17 
“fHbbb"! O STO M RDN 
-7 AROT RDN .END. 


IL NE FAUT PAS JOUER AVEC LE FEU ! 
PROGRAMME MNIM" 


Programme MNIM": 611 


octets de programe, 
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registres de données. Le jeu de NIM ou MARIENBAD 
consiste à enlever La ou Les dernières 
allumettes restantes. Le nombre de tas initial 
peut varier de 1 à 6. Dans chaque tes, La 
machine dépose d'une façon aléatoire de 1 F 
allumettes. 


Affecter M à La touche "M" (pour Machine). Le 
Label J est pour Le joueur (mode USER). 


Exemple: XEQ MNIM" -> NOMBRE DE TAS? 3 R/S. 
caffichage) 2 5 1 
Cier tas 2 allumettes, 2ème tas 
1 allumette) 
2,3 "J" ou R/S j'enlève 3 
allumettes au tas numéro 2 
(affichage) 2 3 1 (la machine) 
(affichage) 2 2 0 
1,1 “J" j'enlève 1 allumette au 
tas numéro 1 
Caffichage) 1 2 
(affichage) 1 1 
1,1" 
(affichage) O0 1 
(affichage) 0 0 0 
LA MACHINE GAGNE II! 


(La machine) 


(La machine) 


Si vous voulez que La machine commence, faites 
XEQ "M" après L'affichage initial des tas 
d'allumettes (vos chances de succès seront alors 
très minces 111). 


Christian JEGOUZO 


O1*LBL MNIM" 

CF 01 SF 00 CLA 
"Nb TAS?" PROMPT 7 
X<=Y? GTO "NIM" RDN 
E3 / 1 + STO 09 
STO 07 


17*LBL A 

RCL 08 9821 * .211327 
+ FRC STO 08 7 * 1 

+ INT STO IND 07 

XEQ "BIN" ISG 07 GTO A 
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B6*LBL Mar" 
CF 01 CLA RCL 09 
STO 07 FIX 0 


40*L8L B 

ARCL IND 07 "f-b" AVIEW 
ISG 07 GTO B FC? 00 
GTO "M" CF 00 TONE 3 
PROMPT GTO J 


52*LBL "BIN" 

RCL IND 07 INT 

STO IND 07 ENTER" 4 
X>Y2 GTO a - .1 
ST+ IND 07 


63*L8L a 
RDN 2 X>Y? GTO b - 
.01 ST+ IND 07 


Ti*LBL b 
RON 1 X>Y? RIN - 
E-3 ST+ IND 07 RTN 


80*L8L J 

RCL IND X STO 00 RDN 
CF 00 ENTER” FRC 10 

# ST- IND Y RDN INT 
STO 07 RCL IND 07 X<0? 
TO 20 XEQ "BIN" 

GTO "AF" 


98*L8L 20 
RCL 00 STO IND 07 
SF 00 GTO "AF 


103*L8L "M" 
FS? 01 XEQ "BIN" 0 
STO 00 RCL 09 STO 07 


TIO*LBL D 

RCL IND 07 FRC 1 E3 * 
ST+ 00 1SG 07 GTO D 
RCL 00 O X=Y? GTO C 
FS? 01 GTO “AF“ STO 00 
RON SF 00 200 MOD 
ENTER" E2 X>Y? GTO d 
- 4 ST+ 00 


136*L8L d 





RON 20 MOD 10 X>Y? 
GTO e - 2 ST+ 00 


146*LBL e 

RDN 2 MOD ST+ 00 
RCL 09 STO 07 RCL 00 
X=0? GTO 21 SF 01 
GTO IND 00 


158*L8L 21 
SF 01 RCL 09 STO 07 


162*LBL 19 

RCL IND 07 1 X<v? 
GTO 18 1SG 07 GTO 19 
STOP 


170*LBL 18 
ST- IND 07 GTO M" 


173*LBL C 

CLA BEEP FS? 00 

GTO 22 "VOUS GAGNEZ" 
PROMPT 


180*L8L 22 
MJE GAGNE" AVIEW PSE 
PSE GTO "AF" 


186*LBL 01 

RCL IND 07 INT 2 MOD 
X#0? GTO 08 1SG 07 
GTO 01 GTO "AF" 


196*LBL 08 
1 ST- IND 07 GTO "M" 


200*LBL 02 

RCL IND 07 INT X=0? 
GTO 09 1 X=Y? GTO 09 
RDN 4 X=Y? GTO 09 
RDN 5 X=Y? GTO 09 2 
ST- IND 07 GTO "M" 


219*LBL 09 
1SG 07 GTO 02 GTO "AF" 


223*L8L 03 
RCL IND 07 INT X=07 
GTO 17 3 X=Y? GTO 10 





RON 7 X=Y? GTO 10 
RDN 2 X=Y? GTO 08 


239*L8L 17 
1SG 07 GTO 03 GTO "AF" 


243*LBL 10 
3 ST- IND O7 GTO "M" 


247*LBL 04 

RCL IND 07 INT 4 
X<=Y? GTO 11 1SG 07 
GTO 04 GTO "AF" 


256*L8L 11 
ST- IND 07 GTO "M" 


259*L8L 05 

RCL IND 07 INT X=07? 
GTO 13 5 X=Y? GTO 12 
RON 7 X=Y? GTO 12 
RON 6 X=Y? GTO 10 


275*L8L 13 
1SG 07 GTO 05 GTO "Ar" 


279*L8L 12 
5 ST- IND 07 GTO "M" 


283*L8L 06 

RCL IND 07 INT X=0? 
GTO 14 6 X<=Y? GTO 15 
RDN 4 X>Y? GTO 14 2 
ST- IND 07 GTO “mn 


298*L8L 14 
1SG 07 GTO 06 GTO "AF“ 


302*L8L 15 
6 ST- IND 07 GTO "M" 


306*L8L 07 

RCL IND 07 INT X=0? 
GTO 16 7 X#Y? GTO 16 
ST- IND 07 GTO "M" 


316*L8L 16 

RDN 4 X=Y? GTO 08 

RDN 5 X=Y? GTO 10 

1SG 07 GTO 07 GTO "AF" 
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CALCUL DES PHASES DE LA LUNE. 


Le programme que nous vous proposons Vous 
permettra de calculer les phases de La Lune sur 
votre HP41. Les formules utilisées sont tirées 
du Livre MAstronomical formulae for caleulators" 
de Jean Meeus. 


Mode d'emploi: 


Faire XEQ "PHALU", La machine demande La date 
sous La forme 'AAAA,MM...2! : mettre l'année, 
virgule, Le mois et une fraction de mois, puis 
R/S. 

A L'arrêt, nous avons Les quatres phénomènes 
possibles [ Nouvelle Lune 'NL', Premier Quartier 
‘pa', Pleine Lune ‘PL', Dernier Quartier ‘DQ! ] 
celui qui précède immédiatement La date indiquée. 
On a "NL (ou PQ etc... )} ‘date! R/S => heure 
3 R/S => "R/S ABC". Si on fait R/S, on a de 
nouveau Le phénomène ci-dessus. Sinon A => Le 
phénomène qui suit, 8 => Le phénomène qui suit 
Le phénomène suivant ( PL aprés NL, NL aprés PL, 
DQ aprés PQ et PQ aprés DQ ), © => donne Le 
phénomène de même nom qui suit ( NL aprés NL, PL 
aprés PL, etc... ). 

La précision est de quelques minutes sur 











environ 5 siècles de part et d'autre de 1900. 


A bientôt et Heureuse Programmation. 


MORANDO 
Bureau des Longitudes 


O1*LBL "PHALU“ 


MDATE?" PROMPT INT 
LASTX FRC .12 / + 
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1900 - 12.3685 * 
STO 20 


15*L8L 27 

RCL 20 X<0? SF 06 
ENTER" FRC FS? 06 
XEQ 29 .25 X>Y? 
GTO 14 RDN .5 X>Y? 
GTO 15 RDN .75 X>Y? 
GTO 16 GTO 17 


35*L8L 29 
E + RTN 


39*L8L 30 
E - CF 06 


4*LBL 14 
SF 00 SF 01 GTO 18 


48*L8L 15 
CF 00 SF 02 GTO 18 


52*L8L 16 
SF 00 CF 01 GTO 18 


S6*L8L 17 
CF 00 CF 02 RON E 


61*LBL 18 

.-25 - FS? 06 XEQ 30 
STO 19 R° R* INT 
RCL 19 + STO 10 


73*L8L 22 

XEa 10 FS? 00 GTO 23 
XEQ 12 RCL 16 ST+ 09 
XEQ 13 FS? 02 GTO 26 
ST- 09 “ DQ" ASTO 18 
GTO 24 


87*LBL 26 
RCL 17 ST+ 09 " pan 
ASTO 18 GTO 24 


93*L8L 23 

XEQ 11 RCL 16 ST+ 09 
FS? 01 GTO 25 " plu 
ASTO 18 GTO 24 





102*LBL 25 
"NL" ASTO 18 


105*LBL 24 
XEQ 21 STO 12 


108*L8L 28 

CF 00 CF 01 CF 02 

CF 27 BEEP RCL 12 
FIX 4 AON CLA ARCL 18 
ARCL X PROMPT 

MHEURE: " ARCL 08 
PROMPT GTO 28 


125*LBL A 
-25 ST+ 20 GTO 27 


129*L8L 8 
.5 ST+ 20 GTO 27 


133*L8L C 
E ST+ 20 GTO 27 


137*L8L 10 
29.53058868 7.7 E-11 
-8.19 E-17 2415020.759 


XEQ 02 STO 09 166.56 
1.07426 E-1 -5.996 E-9 
XEQ 24 XEQ 24 SIN 

33 E-5 * ST+ 09 
29.10535608 -2.177 E-11 
-1.834 E-15 359.2242 
XEQ 02 360 MOD STO 13 
385.8169181 7.01439 E-9 
6.532 E-15 306.0253 
XEQ 02 360 MOD STO 14 
390.6705065 1.084 E-9 
-1.263 E-15 21.2964 
XEQ 02 360 MOD STO 15 
RTN 


178*L8L 11 

+ STO 16 .1734 

-3.18 E-7 XEQ 24 

RCL 13 XEQ 05 21 E-4 
RCL 13 ST+ X XEQ 05 
-.4068 RCL 14 XEQ 05 
-0161 XEQ 00 .0104 
RCL 15 ST+ X XEQ 05 
-51 E-4 RCL 13 RCL 14 





+ XEQ 05 -74 E-4 

RCL 13 RCL 16 - 

XEQ 01 + XEQ 01 - 

XEQ 05 -6 E-4 RCL 15 
ST+ X RCL 14 + XEQ 05 
E-3 RCL 15 ST+ X 
RCL 14 - XEQ 05 5 E-4 
RCL 13 RCL 14 ST+ X + 
XEQ 05 RTN 


232*L81 12 

. STO 16 .1721 

-3.23 E-7 XEQ 24 

RCL 13 XEQ 05 21 E-4 
RCL 13 2 * XEQ 05 
-.6280 RCL 14 XEQ 05 
89 E-4 XEQ 00 79 E-4 
RCL 15 ST+ X XEQ 05 
-.0119 RCL 13 RCL 14 
+ XEQ 05 -47 E-4 

RCL 13 RCL 16 - 

XEQ 05 3 E-4 RCL 15 
ST+ X RCL 13 + XEQ 01 
- XEQ 05 -6 E-4 

RCL 15 ST+ X RCL 14 + 
XEQ 05 21 E-4 RCL 15 
ST+ X RCL 16 - XEQ 05 
3E-4 RCL 14 ST+ X 
RCL 13 + XEQ 05 4 E-4 
RCL 13 RCL 14 ST+ X - 
XEQ 05 -3 E-4 RCL 13 
ST+ X RCL 14 + XEQ 05 
RIN 


303*L8L 13 

28 E-4 -4 E-4 RCL 13 
COS * + 3 E-4 RCL 14 
COS * + STO 17 RIN 


317*L8L 00 

RCL 14 ST+ X XEQ 05 
4 E-4 RCL 143% 
XEQ 05 RTN 


327*L8L 01 
XEQ 05 4 E-4 RCL 15 
ST+ X RCL 13 RTN 


334*L8L 21 
RCL 09 1722519.5 + 
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FRC STO 03 LASTX INT 
STO 05 4021680 X>Y? 
GTO 04 X<>Y 3589735.25 
- 36524.25 / INT 

ST+ 05 4 / INT 

ST- 05 E ST+ 05 


359*LBL 06 

RCL 05 1720995 - 
STO 06 122.1 - 365.25 
1 INT STO 04 RCL 06 
RCL 04 365.25 * INT 
STO 07 - 30.6001 / 
INT STO 02 RCL 06 
RCL 07 - RCL 02 
30.6001 * INT - 
RCL 03 + ENTER" FRC 
24 + HMS STO 08 RDN 
INT E4 / STO 00 
13.5 RCL 02 X<=Y? 
GTO 03 12 - 


408*LBL 03 

E - STO 01 E2/ 
ST+ 00 5 SORT RCL 01 
X>Y? GTO 06 E ST+ 04 


422*LBL 06 

RCL 04 RCL 00 + 4716 
+ X>07 RTN ENTER" 
FRAC: E+ SEX - 

RTN 


437*LBL 02 
STO 11 RON XEQ 24 
XEQ 24 RCL 11 X>Y 
XEQ 24 RTN 


446*LBL 24 
RCL 10 * + RTN 


451*L8L 05 
SIN * ST+ 16 RTN CLX 
END. 
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HP71 ASSEMBLEUR 


HP71 BASIC 
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REDEFINITION DE CLAVIER 


Notre société est actuellement en train de 
développer un Logiciel de Vente Assistée par 
Ordinateur (V.A.0.). Le système se compose d'une 
mallette comprenant un HP718, un Lecteur de 
disques souples (HP9114A), et une imprimante à 
jet d'encre (CHP22258), et Les agents s'en 
servent pour établir Les contrats d'assurances 
de personnes (assurance-vie) "sur Le terrain". 


Ce Logiciel devant être utilisé par tous, et en 
particulier par des non-informaticiens, il était 
impératif de ffiltrer” Les saisies opérées  pêr 
L'opérateur. 

Nous avons donc défini quatre "types"! de clavier: 


- Clavier  MOui/Non'. Seules sont actives Les 
deux touches correspondantes. 

- Clavier numérique. Seules sont autorisées Les 
touches 0 à9, Le point, le symbole % et, bien 
sûr, LENDLINE]. 

- Clavier alphabétique. Les touches numériques 
sont inhibées. Les majuscules et Les minuscules 
sont autorisées, ainsi que (LCI. D'autres 
symboles sont actifs. (ENDLINE] aussi, bien sûr. 
union des 








- Clavier alphanumérique. C'est La 





ensembles <numérique> et <alphabétique>, à Le 


seule différence près que [*] n'est plus autorisé. 


En plus, sont toujours redéfinies Les touches 
suivantes: [RUN], ["] et [vl. Elles ont une 
action spéciale, et constante dans notre 
Logiciel: [RAZ], [AIDE] et [ERREUR]. 


Le premier type de clavier est réalisé par un 
simple KEYWAITS. Les autres étaient, avai 
définis par un LINPUT, avec Le fichier KEYS 
correspondant. Cette solution était simple, mais 





horriblement gourmande en place mémoire. 


Nous avons donc décidé de réaliser ces claviers 
en assembleur. Comment ? En interceptant Le poll 
PKYDF, et en autorisant ou bloquant La touche 
suivant Le type de clavier défini auparavant par 
L'ordre KBD. 


Nous vous fournissons Le Lex, non comme un 
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«produit fini, mais plutôt comme une “boule 


d'argile”, 
propres besoins. 

Sachez seulement que: 

K3D O ramène Le mode normal 

KBD 1 active Le clavier numérique 

K3D 2 active Le clavier alphabétique 
KED 3 active Le clavier alphanumérique 


que vous modelerez suivant vos 





L'accès au langage assembleur nous a permis 
également d'apporter un "plus": pour simplifier 
La saisie, La manipulation est réduite au strict 
minimum. La touche [<] est redéfinie en [BACK], 
et [>] et [g]{>1. Ainsi, notre Logiciel devient 
plus simple, et plus rapide au niveau de 
L'apprentissage. 


France Bilan Informatique S.A. 


LEX "KSDLEX' 

10 #71 

MSG 0 

POLL POLHND Partie "test de La touche! 
ENTRY KBDe 

CHAR #2 Ordre 

KEY *K8D' 
TOKEN 51 
ENDTXT 


KBD <expression numerique> 


EXPEX- EQU #0F178 Evaluation de l'expression 
x pointée par DO 

RNDAHX #136C3 Rappel de l'argument au 
sommet de La pile dans À 

NXTSTM #OBAUS Retour a Basic 

SYSFLG #2F6D9  Flags systèmes 

usrflg (SYSFLG)+16  Flags utilisateurs 

reserv #2FS8A Le quartet de Ram reservée 
utilisé par KBD 

SFLAGS #135FA System FLAG Set 

SFLAGC #13601 System FLAG Clear 

fLUSER EG -9 flag USER C-9 = FFFF7) 

FIXDC #05493  Décomoile au moins une 
expression numérique 

FIXP #O2AGE Analyse un paramètre num. 
obligatoire 

DEFADR #2F967 Adresse de La définition 
de La touche 





PKYDF EQU #18 
* pression de touche 
SFLAG? EQU  #1364C System FLAG test 
ASRWS EGU  #0EDOA Décalage a droite de À 
FINDA EQU #023E3 Equivalent de CASE..0F 
k#BKSP EQU #67 Code physique de (BACK] 
keBKSP EQU #7 Code Logique de [BACKI 
HEOL EQU #26 Code physique de CENDLINE] 
RUN EU #2 Code physique de [RUN] 
KAUP EQU #3: Code physique de [*] 
K#DOUN EQU #33 Ccde physique de [vl 
KALFT EQU  #2F Code physique de [<] 


Poll envoyé après chaque 


REL(S) KëDd 
REL(S) K8Dp 
SETHEX Pour EXPEX- 

GOSBVL EXPEX- 

GOSBVL RNDAHX ACA) = argument (en hexa) 
GONC zéro 
Lect) 
?A<C A 
GOYES normal 
A=0 A 

* argument est pris pour 0. 
ASRC ACS)=paramètre 

ASATA on Le double pour avoir 
* une valeur dans [2..61 
LCC2) FLUSER 
A0 S 
GOYES clear 


Paramètre négatif 


Si paramètre < 4 alors 
c'est normal 
Sinon, tout autre autre 


On désarme Le flag User si 
* paramètre nul 
GOSBVL SFLAGS System FLAG Set 
GONC Okuser CES 
clear GOSBVL SFLAGC Syst 
Okuser D1=(5) us| 
DATI=A S 
D1=(4) reserv ainsi que La ram-réservée 
DATI=A S 
GOVLAG NXTSTM Et on revient a Basic 


n FLAG Clear 
On met maintenant Les 








indicateurs à Leur vaieur 





KBDp  GOVLNG 
KBDd GOVLNG 


ARR II IDE 


* POLL HaNDLer 

* But: tester chaque touche appuyée. 
* Methode: 

* Si Touche est: 


* IRUNI: action spécifique 
* eg so “ 








m1 
te 
Sinon, si clavier num. ou alphanum., tester 
Sinon, si clavier alphabet. ou alphanum., 
x tester. 
Re Rent 
LEC2) PKYDF 
28=C B 
GOYES pol 
retour RTNSXH Retour à l'appelant 


POLHI 





pol =D 
B=C 
LCC2) 
GOSBVL 
c=8 


D=C 


Sauver D(A) pour SFLAG? 


retour Retour si USER=0 

usrflg Test des indicateurs 1, 2 
A=DATO WP 

DO=(4) reserv 

C=DATO UP 

2A#C WP Retour si Ram-reservée 

Fr diffère des flags 0 à 3. 
OYES retour (protection contre Le cas: 
= USER=1, 121 -EDTEXT- ) 
Lec1) 6 0110 en binaire 

C=CEA WP C<-Cet A 

?2C=0 WP Retour si aucun des deux 
GOYES retour  flags 1 ou 2 n'est armé 
Let) 9 1001 en binaire 

=CEA WP 
2C#0 WP 
GOYES retour ou 3 est armé (précaution 
* supplémentaire). 








Retour si un des flags 0 


* À ce point, nous savons que Le flag 1 ou Le flag 
* 2 est armé. 
# Le poli est donc intercepté. 


* Assertions: 

* - DO pointe sur Les flags utilisateur 
* - A(0:0) contient Les flags 1 et 2 

* -P=0 


A=RO ACA)=logical key-code 
GOSBVL ASRU5  A(A)=physical keycode 
A=DATO $ 
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* 


* 


* 


HORROR x 


AAA AAA 


Test des touches spéciales. 

But: tester Les touches qui ont une action 
spéciale. 
Ces touches ne sont pas “laissées! ou 
Mbloquées". Elles correspondent à une 
définition, ou à un traitement qui ne 
peut être généralisé: 
[RUN]: renvoie La chaîne "[RAZ]" 
[1: renvoie La chaîne "[AIDE]" 
[v]: renvoie La chaîne "£LERREUR]" 
LENDLINE]: autorisée dans tous Les cas 
{<]: redéfinie en touche [BACK] 
D: redéfinie en touche [g] >] 
(#1: autorisée uniquement en clavier num. 








ARIANE RO 


* 
* 


* 


* 
* 
* 
* 
* 


Assertion: pour chacune des routines 
particulières appelées: 
ACA)=physical key-code 
RO inchangé par rapport 
DO pointe sur Le quartet de ram-réservée 


au début éu poll 


A(S) contient ce quartet 
Aucun niveau de sous-programme supplémentaire 
n'est utilisé. 


ARR 


* 


* 
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GOSBVL 
CON(2) 
REL(3) run 
CONC2) kAUP 
REL(3) up 

CONC2) k*DOUN 
REL(3) doun 
CONC2) kEOL 
REL(3) retour 
CONC2) K#LFT 
REL(3) backsp 
CONC2) #84 2 
REL(3) p100 
NIBHEX 00 


FINDA 
KARUN 


fin de La table. 


Si Le code n'est pas trouvé, l'exécution reprend 
ici. 


Lcc1) 4 

CSRC 

C=C&A S C=C et A 
2c=0 S 

GOYES alpha clavier alpha 
GOSUB ici 








alpha 
à 





B=C 
LC(5) 


* 


B=B+C 
* 


GOSUB 
* 

CONÇ2) 
CONC2) 
CONC2) 
CONC2) 
CONÇ2) 
CONC2) 
CON(2) 
CONC2) 
NIBHEX 


Lec1) 
csRC 
?A=C 
GOYEs 

* 

* 
GosUi 
C=RSTK 
8=c 
LCC5) 
8=8+C 
Gosus 
CONC2) 
CON(2) 
CONC2) 
CONC2) 
CON(2) 
CONC2) 
CONC2) 
CONC2) 
CONC2) 
CONC2) 


CONC2) # 


CONC2) 
CON(2) 
CONÇ2) 
CONC2) 
CONC2) 
CON(2) 
CON(2) 
CON(2) 
CON(2) 





CERSTK 





C = La valeur de PC 

A qui est sauvegardée dans 8 

(ret)-(ici) et à laquelle on va 
ajouter un déplacement 

A pour avoir L'adresse de La 

fin de La table. 

Chercher si La touche A(B) 

est parmi celles-ci: 


































cherche 


#08 7-9 

#00 

#19 4-6 

18 

#27 1-3 

#29 

#35 0. 

#36 

FF Fin de La table 

4 Mode num. 
On a toujours dans A(S) La 

s valeur des indicateurs. Si 

bloquer La touche n'est pas Là, et 
si clavier num. seulement, 
ators on bloque La touche. 

à 
Même ruse que précédemment 

À 

Chloquer)-{L3) 

A 

cherche 

#01 a-P 

#0A 

#0F AL 

#7 

#1 z-M 

#23 

#24 - 

#2A 

#31 esp 

#31 

#37 ; 

#37 

#6A LC 

#6A 

471 q-' 

#78 

#7F a-; 

#88 

#80 z-m 





CONC2) #98 
CON(2) #98 


NIBHEX FF Fin de La table 


annee nee 
# bloquer 
* But: renvoyer une définition du type: 
* DEF KEY " <touche> !, M ; 
* afin de bloquer La touche. 
TOR 
bloquer D1=(5) DEFADR 
LCHEX 400 définition du type ";" 
* de Longueur nulle. 
DATI=C 3 


GOTO rtn retour avec une définition 


ARR 


* cherche 

* But: chercher une touche dans une table. 
Si La touche est trouvée, alors retour par 
RTNSXM (touche autorisée). 
sinon, retour a L'adresse 3(A) 

Note: Les appels doivent être comme suit: 

GOSU8 cherche 
conc2) t1 
CoN(2) 
CONC2) 
CoN«2) 


NIBHEX 

La table doit être triée en ordre 

croissant. La touche est trouvée 

si elle est comprise dans [t1..t2], 

C3 té... 
AO ANNEE 
cherche C=RSTK Adresse de retour=adresse 
+ du début de La table 
CO0EX DU=adresse de La table 
C=DATO 3 C(8) = borne inférieure de 
* t 
7A<C B 
GOYES Fin 
DO=00+ 2 
C=DATO 8 
DO=00+ 2 
2RC 8 
GOYES boucle 
RTNSXM trouvée => autorisée 





tervalle 
Touche < (table) 


C(8) = borne supérieure de 
l'intervalle 
Touche > (table + 1) 





Retour a l'adresse B(A) 
RTN 


AR AIN 


def 
But: renvoyer une définition située juste après 
L'appel à "def. 
L'appel doit être structuré comme suit: 
GOSU3 def 
* CONC1) Longueur 
* NIBASC ‘définition! 
A EEE 
def C=RSTK C{A)=adresse de retour = 
DO=c adresse de début de table. 
c=0 A 
D1=(5) DEFADR 
C=DATO On La rappelle, et on La 
met sur un octet 
dans DEFADR. 
UDK - terminating 
CUser defining key) 





Longueur sur 1 quartet 


C(A)=adresse de La table 
C(A)=adresse de La déf. 





Poll intercepté 
Returning a de 





nition 


GOSUB def Appel à La routine "defi: 
coNc1) 5 Longueur de La définitior 
NIBASC ‘[RAZI' texte de La définition 
GOSUB def 
CON(1) 6 
NIBASC *[AIDEZ! 
GOSUS def 
conct) 8 
NIBASC ! [ERREUR] ! 

backsp C=0 4 [BACKI remplace [<] 
LC(1) kcsksP code logique 
Pr 5 
LCC2) k#BKSP code physique dans C(9:5) 
RO=C Ni vu, ni connu, 





* on subtilise ! 
Retour RTNSXM 
pi00  LCC1) 

csRC 

2 S Mode numérique seulement ? 

GOYES Retour Oui: on autorise [%] 

GOTO bloquer Non: on bloque 


0100: mode numérique 
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END 





MODE CALC ET BACKSPACE 








Vous avez peut-être, comme moi, admiré Le mode 
Calc, mais été très vite dégouté de s'en servir. | 
En effet, à La moindre faute de frappe (si. si, 
fait), il appuyer sur deux touches 
revenir en arrière. IL n'en fallait pas 
juge La situation 
mon brave HP71, compagnon de 
appris Le LEX | 


j'en faut 
pour 
plus pour que je intenable. 
J'ai 
tous 


suivant: 


alors pris 
Les instants, et je lui ai 








LEX 
10 #71 
msG 0 
POLL PH 
ENDTXT 
} 
PRYDF EQU #18 I] 
SYSFLG EQU  #2F6D9 
KCLFT EQU #8 Touche [<] 
KeBKSP EQU #7 Touche [f] [BACK] 
ABKSP EQU #67 Cede issu de La 
* Lecture-clavier 
PH LOC2) PKYDF 
28=c 5 
inter 
rin  RTNSXA 
inter DO=(5) (SYSFLG)+11 
ASDATO À 
ASATA A Carry=1 si mode CALC 
GONC rtn Retour sinon 
AERO ALAI=Key-Code 
c=0 w 
LCCT) kCLFT 
?A#C A Est-ce [<] 
GOYES rtn Non: retour 
c=c-1 8 CtAJ=Code de [f] [BACKI 
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5 





LC(2) Kk#3KSP C[9-5]=Code physique 
RO=C Ni vu, ni connu, on change 
RTNSXM Fin... 





END 










sur 





Grâce à lui, vous n'aurez plus à appuyer 
If] et IBACK]. Une seule pression de [<] suffit, 
en mode Cale bien sûr ! 





A bientôt 
Pierre DAVID (S1G1, P37, CHHU616) 


LA DECOMPARSE 






freiné des 


Le problème qui a 


L'apparition 


ordres (alias "statements") était La décomparse. 
Si maintenant, elle est un peu moins 
mystérieuse, il n'en allait pas de même il y a 


six mois à peir 





En effet, Titan notre bien aimé offre à tous 
ces dingues d'assembleuristes et amateurs de 


Lhex deux espèces de mots-clefs: 





- Les fonctiens. Leur syntaxe, à quelques 
détails près, est toujours à peu près identique. 
C'est fCX1,X2,...Xn) ou fS$CX1,X2,...Xn) où X1, 
x, -Xn sont Les paramètres (numériques, 
ai riques ou tableaux). Voir à ce sujet 
l'article sur Les variables et La Math-Stack 





dans 4JPC2S (Juin 1985). Du point de vue du 
Le nombre et Le type des paramètres 
est codé juste avant Le programme représentant 


La fonction. 
ne parlerons 
autrement que pour dire qu'elles 


Nous pas des ‘funny functions! 
assument leur 
déccmparse. FNROOT et INTEGRAL dans Le 
module Math. Pour Les amateurs d'exotisme, 


FN et GO dans La Rom Basic. 


Voir 
voir 












- Les ordres. Leur syntaxe est entièrement 


laissée au choix du programmeur. Le système 


d'exploitation ne La connaît pas à priori. 
Comment, en effet, généraliser des  syntaxes 
aussi diverses que: 
RUN 
RUN <No de Ligne> 
RUN <spéc. de fichier> 
RUN <spéc. de fichier>,<No Ligne> 
RUN <spéc. de fichier>,<label> 
RUN ,<No Ligne> 
,<label> 


ES 
BEEP ON 

BEEP OFF 

BEEP <fréquence> 

BEEP <fréquence>, <durée> 


Et encore, nous ne parlons pas de "OPTION", ou 
“IMAGE (frémissements dans l'assistance. ..). 

Le système d'exploitation résoud Le problème 
d'une manière simple: chaque fichier Lex 
contenant des ordres doit assumer La 
reconnaissance et L'analyse de ceux-ci dans la 
chaine entrée au clavier. C'est ce qu'on 


appelle: "La décomparse". Ce barbarisme vient de 





La contraction des termes M"Decompile" et 
MParse. Pour Les non-anglicistes, nous avons 
traduit ça par "décompilation" et "analyse”. 
Expliquons un peu... 


Quand vous entrez Une Ligne de commande dans 
votre ordinateur préféré, il se produit un tas 
de choses que nous allons détailler: 

La ligne est entrée dans Un endroit appelé 
“Display Buffer“, 

Quand vous appuyez sur (ENDLINE], Le processus 
commence. Cette chaîne est recopiée dans La pile 
de commandes. Elle devient alors Le "Input 
Buffer“ (Tampon d'entrée) à partir duquel va 
être organisée La compilation, ou analyse, ou 
“parse“. Nous employons Les trois termes 
indifféremment. 

Cette chaîne de caractères va donc être 
progressivement explorée, puis codée en "Tokensi' 
(codes) dans Le "Output Buffer“. 


Pour fixer Les idées, parlons de ces buffers. 





Quand nous entrons une Ligne de commandes, ce 
“output buffer! est un 1/0 buffer comme ceux 
expliqués dans JPC23. Le M"command buffer" est 
toujours Le premier des 1/0 buffers, et c'est 
dans celui-ci que sera exécutée La Ligne que 
vous avez introduite. 

Quand vous entrez une Ligne de programme basic 
(La même chose avec un numéro de Ligne devant), 
Le "Output buffer“ correspond à La ligne dans Le 
fichier. 

Quand vous faîtes MTRANSFORM xx INTO BASIC", Le 
“input buffer n'est plus La pile de commandes, 
mais La Ligne correspondante dans Le fichier 
"xx". Le "Output buffer! est La Ligne de fichier 
basic transformé. 


La décompilation est Le mécanisme inverse: à 
partir d'une chaîne de codes ("Tokens'), Le  HP71 
extrait une chaîne de caractères beaucoup plus 
lisible pour nous, pauvres humains que nous 
sommes. 

Là, Le “Input buffer est La Ligne de Basic que 
l'on veut regarder, et Le "Output buffer“ est Le 
"display buffer. 

Le mécanisme de décompilation est généré par La 
pression des flèches de curseur verticales, par 
Fi , AUTO ou SST quand il s'agit de visualiser 
une ligne basic. N'oublions pas (P)LIST ou 
TRANSFORM. 





ETCI 


Ces deux mécanismes se rapprochent au niveau 
conceptuel. D'autre part, un "être" extérieur 
peut engendrer ces processus. 

En règle général, une routine d'analyse doit 
être extrèmement rigoureuse. En effet, c'est 
elle qui filtre l'entrée de l'utilisateur. Si il 
Y a une faute, c'est elle qui doit La détecter. 
La routine de décompilation, elle, suppose que 
Les codes sont cohérents, puisque précédemment 
filtrés par L'analyse. 


Pour Le programmeur, une routine d'analyse ou 
de décompilation suppose que Le buffer d'entrée 
est pointé par Le registre D1, et Le buffer de 
sortie est pointé par DO. Ceci ne veut pas dire 
qu'elles peuvent utiliser des routines communes: 
c'est faux ! 
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Les routines de décompilation sont généralement 


beaucoup plus faciles à écrire que Leurs 
collègues analysatrices (1). Ceci est dû pour 
une grande part à La grande souplesse des 


routines 
notre disposition. La seule et unique manière de 
se familiariser avec celles-ci est de Les 
pratiquer. 
Quant à La 


internes que HP met gracieusement à 


c'est déjà plus délicat. 
aide. La 
bonne 


Mparsei 
Heureusement, Là encore, 
des outils nécessaires à une 
sont inclus et supportés dans La rom 


HP nous 
plupart 
anaiyse 
système. 
Attention: Les erreurs que L'on détecte Lors de 
L'analyse 
IL faut 
routines qui 


ne sont pas Les erreurs Melassiques". 


faire appel à un petit nombre de 
prennent en charge Le message 


d'erreur, La position du pointeur, etc... 





ne (Lex 09 et 01) 
permet d'étendre 


Notons que Les ordres du syst: 
sont analysés en dernier. Ceci 
exemple, 


Les syntaxes standard. Par considérons 








Le cas de RESET HPIL. Les ordres RESET ou RE: 

CLaCK sont inclus d'origine. Si RESET HPIL est 
entré, L'HPIL analyse RESET, et voit Le mot HPIL 
derrière: tout va bien. Si maintenant, nous 





CLOCK. L'HPIL ne 


mais permet à d'autre Lex (Le Lex 01 


entrons RE 
ctocx, 
notre cas) de Le reconnaître. C'est Le mécanisme 
de MRESTART" UHPIL 


reconnait pas 
dans 


(recommencer ): se déclare 








incompétent, il Le signale en branchant à la 
routine Le pointeur D1 est alors re 
devant RESET, et tout continue comme si de rien 
n'était... 

Un autre point important est "Les mots". Par 
exemple, CLOCK est un mot. HPIL, 10, IS sont des 
mots, ainsi que ON, VARS, FLOW, NEG... Ce sont 
des entités qui dépendent des ordres 


mais qui ne sont 
On ne peut Les atteindre que par 
l'intermédiaire des routines d'analyse et de 


(statements), pas accessibles 


directement. 
décompilation. Un "mot est un ordre 
autre, mis à part qu'il n'est 
part. Seule une routine d'analyse peut décider 
de rechercher Le code correspondant à MFLOU“ par 
exemple (TRACE FLOU). 


comme un 
autorisé nulle 
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Le critère permettant de classer 





Les nouveaux 
mots-clefs est appelé Le "Characterization 
nibble”, ou quartet de caractérisation. IL est 
placé dans La partie "déclaration" 
assembleur, et correspond à la 
macro-extension "CHAR". 


d'un fichier 
source 


Valeur Signification 

0 0000 Hot (autorisé nulle part) 

1 0001 Exécutable au clavier seulement ( 
2 0010 -+ Non utilisé -- 

3 0011 1+2 

4 0100 Autorisé après THEN/ELSE 

5 o1o1 +4 

6 0110 2+4 

70111 1+2+4 

8 1000 Programmable 

9 1001 1+8 

A 1010 2+8 

8 1011 1+2+8 

c 1100 4+8 

D 110 1+6+8 (généralement utilisé) 
E 1110 2+4+8 

F Fonction 


Voilà, explications 


théoriques 


après ces quelques 


préliminaires, nous entrons dans le 


vif du sujet. Les prograr 





es qui suivent ne font 
rien, 
dits 
décompiler). 


vous pouvez Les rentrer dans votre machine 
qu'analyser et 
sont 


ne font rien d'autre 


Etudiez-les bien, ce 


maintenant des documents de référence... 





RARE RAID 











LEX *ORDRELEX" 
ID #50 
MSG 0 
POLL 0 
TRY  CRDRE 
CHAR #0 
KEY ORDRE!  SYNTAXE: ORDRE 
TOKEN 1 
ENDTXT 
ITELA EQU #05303 Fin de décomilation 
NXTSTM EQU #08A48 Fin d'exécution d'un ordre 


REL(5) ORDREd 
























































REL(S) 
ORDRE  GOVLNG 


RTNCC 
* 


ORDRE? 


* 


ORDREd 
STOPDC GOVLNG 


END 


LEX 

10 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENDTXT 





EXPROC 


DROPDC 


NXTSTM EQU 


REL(5) 
REL(5) 
ORDRE  GOVLNG 
ORDRE? 
FIXP  GOSBVL 
GOVLNG 


ORDREd 
FIXDC  GOSBVL 


GOVLNG 


END 


LEX 
10 





ORDREP 

NXTSTM L'ordre ne fait rien 
IL n'y a rien d'autre que 
ORDRE! à décompiler. Le 
retour se fait avec RTNCC. 

QUTELA 


ARR 


TORDRELEX" 

#50 

0 

° 

ORDRE 

# 

IORDRE  SYNTAXE: ORDRE 

1 

#03690  Routine d'analyse d'une 
expression numérique. 

#03172 Restaure D1 en fin 
d'analyse 

#05922 Routine de décompilation 
d'une expression. 

#05470  Routine de décompilation 
de DROP et ADD. 

#08A48 Fin d'exécution d'un ordre 

ORDREd 

CRDREP 

NXTSTM 





NUMCK 
RESPTR 


EXPRDC 
DROPDC 


RARE 


*ORDRELEX" 
#50 





STRGCK 
RESPTR 


FIXDC 
NXTSTM 


ORDRE 


ORDRED 
STRNGP 


ORDREd 





MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENDTXT 


EQU 
EQU 
EQU 


REL(5) 
REL(5) 
GOVLNG 


GOSBVL 
GOVLNG 


GOVLNG 
* 


* 
* 


END 


0 

0 

ORDRE 
#0 
ORDRE 
1 


#0368A 


#03172 


#05493 


#08A48 


ORDREd 


ORDRE? 
NXTSTM 


TRGCK 
RESPTR 


FIXDC 





SYNTAXE: ORDRE AS 


Routine d'analyse d'une 
expression alphanumérique 


Fin d'exécution d'un ordre 


L'ordre ne fait rien 


Routine de décompilation 
de L'ordre ‘FIX'. Cette 
routine est très souple, 
on peut décompiler 
n'importe quel nombre de 
paramètres à partir du 
moment où ils sont séparés 





par une virgule. 


AIRE 


NUMCK 
EOLCK 
RESPTR 
DROPDC 
NXTSTH 


LEX 

1D 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TCKEN 
ENDTXT 


EQU 
EQU 
EQU 
ECU 
EQU 


*ORDREL 
#50 

0 

0 

ORDRE 
#0 
ORDRE! 
1 


#03650 
#OZA7E 
#03172 
#05470 
#OEALB 





SYNTAXE: ORDRE [N] 


Fin d'exécution d'un ordre 
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REL(5) ORDRE“ 
REL(S) ORDREp 
ORDRE GOVLNG NXTSTM L'ordre ne fait rien 
ORDREP GOSSVL EOLCK 
GoC  resptr 
GOSBVL RESPTR 
FIXP  GOSBVL NUMCK 
resptr  GOVLNG RESPTR 
ORDRES GOVLNG DROPDC Routine de décompilation 
% de L'ordre ‘DROP'. 
END 


ARR RE 














LEX *ORDRELEX" 
12 #50 
MSG 0 
POLL O0 
ENTRY CRDRE 
CHAR #0 
KEY ORDRE! SYNTAXE: ORDRE [AS] 
TOKEN 1 
ENDTXT 
STRGCK EQU #0368A 
EOLCK ECU #O2A7E 
ESPT: #03172 
ROPD: #0547. 
NX #08A4& Fin d'exécution d'un ordre 
REL(5) ORDREd 
REL(S) CRDREP 
GOVLNG L'ordre ne fait rien 
ORDREP  GOSSVL 
goc 
GOSSVL & 
STRNGP GOSSVL 
resptr GOVLNG RESPTR 
ORDRES GOVLNG DRCPDC Routine de décomilation 
® de L'ordre 'DROP'. 
END 


ANA 


LEX *ORDRELEX! 
12 #50 








NUHCK 
RESPTR 
FIXDC 
NXTSTM 
tCCHMA 
FIXP 


ORDRE 


ORDREpP 
DELAYp 


fixp 


ORDREd 


MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENDTXT 


Ecu 
ECU 
EQU 
ECU 
EQu 
ECU 


REL(5) 
REL(5) 
GOULNG 


LCC2) 
?A=C 
GOYES 
GOVLNG 
GOVLNG 


GOVLNG 


END 


0 


0 

ORDRE 

#0 

ORDRE!  SYNTAXE: ORDRE NC,M] 

1 

#03650 

#03172 

#05493 

#08A48 

#F1 Token de , (Virgule) 

#O2AGE 

ORDREd 

ORDREP 

NXTSTH 

NUHCK Au retour de NUMCK, Le 
token suivant se trouve 
Le registre A. 

tCOMMA ) On vérifie si c'est bien 

8 ) une virguie. 

fixp ) Si oui: on continue. 

RESPTR Fin d'exécution. 

FIXP 

FIXOC 


AAA AA 


NUMCK 
RESPTR 
FIXOC 
NXTSTM 
COMCK+ 
FIXP 





TOKEN 
ENOTXT 


EQU 
ECU 
EU 
EQU 
EQU 
EQu 


IORDRELEX! 
#50 

0 

0 

CRDRE 
# 
ORDRE! 
* 


SYNTAXE: ORDRE N,M 


#03690 
#03172 
#05493 
#O0BA4B 
#032AE 
#OZA6E 


Décompile La virgule 
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SYNTKe EQU  #02E23 
REL(5) ORDREd 
REL(5) ORDREp 
ORDRE  GOVLNG NXTSTH 
GOSBVL NUMCK 
GOSBVL COMCK+ 
goc  fixp 
GOVLNG SYNTXe 
GOVLAG FIXP 


ORDRE? 


fixp 


ORDREd GOVLNG FIXDC 


END 


Retourne "Syntax errori. 


AAA 


LEX *ORDRELEX' 


1D #50 

MSG 0 

POLL 0 

ENTRY ORDRE 
CHAR  # 

KEY ORDRE 
TOKEN 1 
ENDTXT 


NUMCK  EQU 
RESPTR EQU 
FIXDC EQU #05493 
NXTSTM EQU #OBA4S 
tCOMMA EQU  #F1 

STRNGP EQU #03790 


#03690 
#03172 


REL(5) ORDREd 
REL(5) ORDREP 
GOVLNG NXTSTM 


GOSBVL NUMCK 
LCC2) tCCMMA 
AC 8 
GOYES strngp 
GOVLNG RESPTR 
strngp GOVLNG STRNGP 


ORDREd GOVLNG FIXDC 


END 


SYNTAXE: ORDRE NC,AS] 


ARR III DIR 





NUMCK 

RESPTR 
FIXDC 

NXTSTM 
COMCK+ 
STRNGP 
SYNTXe 


strngp 


CRDREd 


LEX 

ID 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENOTXT 


Eau 
EQu 
EQU 
EQU 
EQu 
EQU 
EQU 


REL(S5) 
REL(5) 
GOVLNG 


GOSBVL 
GOSBVL 
GoC 

GOVLAG 
GOVLAG 


GOVLNG 


END 


ORDRELEX! 
#50 

0 

0 

ORDRE 
#1 
CRDRE! 
1 


SYNTAXE: ORDRE N,AS 


#0369D 
#03172 
#05493 
#OBA4B 
#O32AE 
#0379D 
#02E28 


ORDREd 
ORDREP 
NXTSTM 


NUMCK 

CCMCK+ 
strngp 
SYNTXe 
STRAGP 


FIXDC 


AID 


STRGCK 
RESPTR 
FIXDC 
NXTSTM 
+COMMA 
FIXP 


LEX 

10 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENDTXT 


EQU 
EQU 


ECU 
EQU 


ORDR: 
#50 

0 

0 
ORDRE 
# 
ORDRE! 
1 





x: 


SYNTAXE: ORDRE ASC,N] 


#0368A 
#03172 
#05493 
#OBAGB 
#F1 

#OZA6E 
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ORDRE 


ORDRED 


#ixp 


ORDREd 


AAA 


STRGCK 
RESPTR 
FIXDC 
NXTSTM 
COMCK+ 
FIXP 
SYNTXe 





fixp 


ORDREd 


AAA 
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REL(S) 
REL(S) 
GOVLNG 


GOSBvL 
LCC2) 
?ASC 
GOYES 
GOVLNG 
GOVLNG 


GOVLNG 


END 


LEX 

1D 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENOTXT 


REL(5) 
REL(S) 
GOVLAG 


GOSsvL 
GOSBvL 
Goc 

GOVLNG 
GOVLNG 


GOVLNG 


END 


LEX 


ORDREd 
CROREP 
NXTSTH 


STRGCK 
TCOMMA 
8 

fixp 
RESPTR 
FIXP 


FIXDC 


TORDRELEX! 
#50 

0 

9 

ORDRE 
#0 
ORDRE" 
1 


SYNTAXE: ORDRE AS,N 


#0368A 
#03172 
#05493 
#0EA4B 
#O32AE 
#O2A6E 
#02E28 


ORDREd 
ORDREP 
NX 





STRGCK 
COMCK+ 
#ixp 
SYNTXe 
FIXP 


FIXDC 


*ORDRELEX' 





STRGCK 
RESPTR 
FIXDC 

NXTSTM 
TCCMMA 
STRNGP 


ORDRE 


ORDRE 


ARR R RDA OOEOE 


STRGCK 
RESPTR 
FIXDC 

NXTSTM 
COMCK+ 
STRNGP 
SYNTXe 


1 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENOTXT 


REL(S) 
REL(5) 
GOVLNG 


GOSBVL 
LCC2) 
?ASC 
GOYES 
GOVLAG 
GOVLAG 


GOVLNG 


END 


LEX 

12 

MSG 
POLL 
ENTRY 
CHAR 
KEY 
TOKEN 
ENDTXT 


Eu 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 








#50 

0 

0 
ORDRE 
#0 
ORDRE! 
1 


SYNTAXE: ORDRE ASC,85] 


#0368A 
#03172 
#05493 
#08448 
#F1 

#03790 


ORDREd 
ORDREP 
NXTSTH 


STRGCK 
tCOMMA 
8 

strngp 
RESPTR 
STRNGP 


FIXDC 


OR) ‘ 
#50 

0 

0 
CRDRE 
# 
*CRDRE‘ 
1 





SYNTAXE: CRDRE AS,55 








REL(5) ORDREd 
REL(5) ORDREP 


ORDRE  GOVLNG NXTSTM 
GOSBVL STRGCK 
GOSBVL COMCK+ 
Goc  strngp 
GOVLAG SYNTXe 
strngp  GOVLNG STRNGP 


ORDRED 


ORDREd GOVLNG FIXDC 


END 


AA 


LEX TORDRELEX' 


1D #50 
MSG 0 
POLL O0 
ENTRY 0 

* 

* 

+ 

* 
CHAR 0 


ENTRY ORDRE 


CHAR #0 

* 

* 

* 

KEY ‘HOT! 

“ 

TOKEN 1 

KEY TORDRE! 

TOKEN 2 

ENDTXT 
WRDSCN EQU #02C2A 
NXTSTM EU  #OEA48 
RESPTR EQU  #03172 
TRACOC EQU  #052FC 
QUTEL1 ECU #05300 


REL(S) ORDREd 
REL(S) ORDREP 
ORDRE GOVLNG NXTSTM 


ORDREP GOSBVL HRDSCN 


Entrée de !MOT' égale 0. 
Identique à MSG O / POLL 0 
Lorsqu'il n'y a pas de 
table de messages ou de 
routine d'exception 

(Poll Handler). 

Q pour Les mots, voir 
L'article. 


lORDRE' est Légal après 
THEN/ELSE, programmable et 
ectement exécutable 





au clavier. 
"MOT! n'apparaît que dans 
La table texte du Lex et 


est "ti visé 01. 





SYNTAXE: ORDRE [MOT] 


Routine de recherche. 


La routine WRDSCN (WORD 





NIBHEX FEC510 
* 


M nn + 


* 


REL(3) rtncc 
* 


NIBHEX 00 


OVLNG RESPTR 
* 


* 


* 


rtnec RINCC 
* 
* 

ORDREd LCHEX OCSOEF 
* 
* 
* 
* 
2A#C 4 
GOYES outeli 
GOYES outel1 
GOVLNG TRACDC 
* 

outel1 GOVLNG OUTELT 


END 


SCaN) recherche dans La 
table ci-dessous Le 
“token! de 'MOT'. S'il 

y trouve, WRDSCN 

branche à une adresse 
donnée (rtnce pour 
L'exemple). 

CFE): tXWORD = EF, 

ID = 50 et 

: TOKEN = 01. 

WROSCN considère L'élément 
de La table sur 6 quartets 
si Le premier token est 
XFN, EXWORD, tFFN, sur 2 
quartets autrement. 
Branchement si Le "tokeni 
est Le bon. 

Fin de La table. 

Si Le "token“ ne se trouve 
pas dans La table, on 
branche en RESPTR: 
l'analyse est terminée. 








Autrement: directement 
RTNCC 
deux “tokens!". 


on tient compte des 


Après La décompilation de 
lORDRE', Le "token" de 
"HOT! se trouve dans ACH). 
On charge dans Cu) 
L'équivalent pour 
comparaison. 

Si Les Mtokensi' sont 
différents, on branche en 
outel1. 

Autrement on continue La 
ilation à "TRACDC". 


On ne renvoie que 'ORDRE'. 








AAA III IE 





*ORDRELEX 
10 #50 
MSG O0 
POLL 0 
ENTRY 0 Entrée de ‘MOT! égale 0. 
CHAR O0 
ENTRY ORDRE 
CHAR #0 
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KEY "MOT! 
TOKEN 1 
KEY ORDRE‘ 
TOKEN 2 
ENOTXT 
SYNTXe EQU  #02E28 
WRDSCN EQU #02C2A 
NXTSTM EQU #08A48 
TRACDC EQU #052FC 


REL(5) ORDREd 
REL(S) ORDREP 


ORDRE  GOVLNG NXTSTM 

ORDREp GOSBVL WRDSCN 
NIBHEX FE0510 
REL(3) rtncc 
NIBHEX 00 
GOVLNG SYNTXe 
x 

rtncc  RINCC 

ORDRES GOVLNG TRACDC 


END 
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SYNTAXE: ORDRE MOT 


Renvoie "Syntax Error. 
Routine de recherche. 


Fin de La table. 
La syntaxe n'est pas 
complète: "S. Error“. 
Autrement: RTNCC. 


ARR AAA 


LEX *ORDRELEX! 
12 #50 
MSG 0 
POLL 0 
ENTRY 0 Entrée de 'MOTI' égale C. 
CHAR 0 
ENTRY 0 
CHAR 0 
ENTRY 0 
û 
ORDRE 
*MOTI" 
1 
*MOT2' 
2 
*MOT3! 
3 
ORDRE! 
& SYNTAXE: ORDRE MOT1 


ou ORDRE MOT2 
ou ORDRE MOT3 














SYNTXe EQU #02E28 
WRDSCN EQU #02C2A 
NXTSTM EQU #OEAGS 
TRACDC EQU #052FC 

REL(5) ORDREd 

REL(S) ORDREp 
ORDRE  GOVLNG NXTSTM 


ORDREp GOSBVL HRDSCN 





NIBHEX FE0510 tXHORD = EF, 
‘à (05): ID = 50 et 
# {10): TOKEN = 01. 


REL(3) rtncc Branchement si Le "“token! 
# est Le bon. 

NIBHEX FEO520 2 (dec) 

REL(3) rtncc 
NISHEX FE0530 
REL(3) rtncc 
NIBHEX 00 
GOVLNG SYNTXe 
RTNCC 


Token: 
Token: 3 (dec) 
Fin de La table. 
rtnec 
ORDRES GOVLNG TRACDC 

END 

A bientôt et Heureuse Programmation 

SIG 1et2 


P.S. Ceux qui, eventuelemant qui là zont pas 





cenprite La reticle quelle es ho dessu d'issi, y 
pour qui 
demande à acheté La Internai Design Specification 
IT, III, IVet V si 
maudul HP-IL. 





faux qu'y z'ail t'a La Règla calcules s 


taüme 1, s'est ceux qu'en Le 


LE NOUVEAU DESAL 





Comme annoncé dans Le JPC25 





CJuin 1985) voici 








DESAI 





La nouvelle version de : Le Lex de mon 
désassembleur. 

La première version utilisait pour s'affranchir 
des zones privatisées ls fonction SEEKS (Super 
Peek) et La fonction HTAS qui ne reposait pas 
correctement son résultat sur La Math Stack. 

De plus ce Lex était un des tout premiers de 
notre longue série mais avait besoin d'une bonne 


optimisation ! . EN Mes 
Cette version est donc une version optimisé 
j'y ai ajouté La fonction ATHS, qui manquait 


dans La panoplie précédente. 

Dans tiuillet/Août), vous avez 
pu trouver dans La rubrique "Le Coin Des Lhex“ 
Le fichier complet avec Les fonctions KEYMAITS, 
REVS, PEEKS et POKE. er 


Le dernier JPC 


J'espère que Les bidouilleurs qui n'ont pas La 
chance d'avoir Les IDS III pourront décrypter à 


Leur guise La ROM système. 


Heureuse Programmation 





Michel MARTINET SIG#2 P#12 CHHU#617 


LEX "DESASLEX" 
10 113 

MSG 0 

POLL 0 


ENTRY  ADSUF 


CHAR 15 

ENTRY ASCII 

CHAR 15 

ENTRY ATH 

CHAR 15 

ENTRY HTA 

CHAR 15 

ENTRY RED 

CHAR 15 

KEY *AOBUFS' syntaxe: ADSUFS("8FC") 

* ==> Adresse du buffer BFC 
TOKEN 1 

KEY "ASCS' Syntaxe: 

Fe ASCSC"asd"£chrS(27)2"#g") 
: ==> Masd.fg" 








TOKEN 2 





À KEY *ATHS' Syntaxe: ATHS("ABCDE") 
+ ==> "142630445040 
TOKEN 3 
KEY *HTAST syntaxe: HTAS("14243644n) 
» ==> “ABCD* 
TOKEN 4 
KEY MREDS' Syntaxe: REDS(" a D ") 
* b“ 
TOKEN 5 
ENOTXT 


A 


ADHEAD EQU #18187 Fin de La fonction: retour 
s à BASIC. 








ARGERR EQU #08F19  Renvoie "Invalid Arg." 
CONVUC EQU #152AA Conversion de A(B) en 
; “ majuscule. 

D=AVMS EQU #1A460 Place La valeur de AVMEMS 
æ dans D(A). 

DRANGE EQU #18076 Vérifie que La valeur ce 
” AB) est comprise entre 0 
. et 9. 

EXPR ECU #0F23C Retour à BASIC. 

FNRTNG ECU #0F238 Fin de La fonction HTAS: 
# retour à BASIC 

HEXASC EQU #17148  Transforme un ou plusieurs 
Ÿ quartets en Leurs 
* équivalents 
, ASCII. 

IOFNDO #11801 Place l'adresse du buffer 
Ë dont l'"ID" se trouve dans 
: C(X) dans 01-7 (D1 * 7 
* quartets après). 

409440 Renvoie “I. Memory" 
#08038 Teste une expression 





aiphanumérique sur La Math 


” Stack 





Vérifie si A(8) est dans 
une certaine "échelle". 


REVS  EQU  #1B38E Renverse une chaine sur La 
Æ Math Stack. 

REVPOP EQU  #03031 "Pop teste et renverse La 
x chaine sur La Math Stack. 





MH AS eereeeeeeeeeememeneeneneeneeeneeene ent 


NIBHEX 411 La fonction n'admet qu'un 


a =" (ll CU ape Le 








* 
* 


HTA GOSSVL POP1S 
* 


C=A A 
* 

ST=C 
2ST#0 1 
+ 

+ 

* 

* 


GOYES Argerr 
* 


CDCEX 

* 
RSTK=C 
CD1EX 
C=C+A À 
po=c 
D1=c 
c=0 M 
C=A A 
csrs 
CSRB 

* 
DC A 

- 

* 
C=C+C À 
CSL 4 
St 4 





GOC  HTAFIN 


DO=D0- 4 
* 

ASDATO 4 

P= 1 
GOSUS  CONVAH 
p1=01- 2 
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seul paramètre 
alphanumér ique 

Teste Le paramètre de La 
fonction et renvoie La 
Longueur 

de la chaîne alpha en 
quartets dans ACA) 

On transfert cette 
Longueur dans CA) 

puis dans ST 

pour tester si Le nombre 
de quartets est multiple 
de quatre (La chaîne est 
alors constituée d'un 
nombre pair de caractères) 
Si Le nombre est impair: 
erreur 

Sauvegarde du compteur 
programme (PC) 

dans RSTK 

Addition de La Longueur de 
La chaîne à D1 

et on place DO et 

D1 sur La fin de La chaîne 


Division de La Longueur 





de La chaîne 
par 

&: deux déplacement de 1 
bit vers La droite 

et sauvegarde de N/4 dans 
DCA) qui servira de 
compteur 

Muttiolication par 2 pour 
reconstitution de l'entête 
de La nouvelle 

chaîne 

et sauvegarde dans Le 
registre R1 


On c: nce La boucle par 






décrémenter D 

S'il ne reste plus de 
caractères on branche en 
HTAFIN. 

Autrement on décrémente DO 
de 4 pour 

Lire La valeur HEXA 

P= #-1 chr à convertir 
Voir encart 

On décrémente D1 pour 














“+ DATI=A 8 placer Le caractère ASCII 


GONC Boucle Branchement inconditionnel 


HTAFIN. CERSTK Fin: restitution cu 
Do=c compteur programme 
< sauvegardé dans RSTK plus 
* haut 
D1=01- 16 Décrémentation de D1 pour 
Lay placer 
c=r1 L'entête de La nouvelle 
* chaine sur La Math Stack 


GOVLNG FNRTN4 et retour à BASIC 


Argerr GOVLNG ARGERR 


AAA AA 
* 


* CONVAH : CONvertit de L'Ascii en Hexa 
* 


* 


Cbjet: convertir une expression ASCII en HEXA 


* 
* Entrée: 

#  P= Nb. de CHR. à convertir moins 1 (de 0 à 7) 
* HEX 

* A: valeurs HEXA correspondent au CHR. ASCII 
* Ex: 31345 <- 

? | 

* ->E41 | avec P= 2 en entrée. 
* l 1 

Sorties “anses 

*  P=9 

* HEX 

*  Carry=0 


” ACW) = BCH) = valeur KEXA 
* Utilise: ACW), 8(W), CCS), C£A), P 
* Niveaux de pile des retcurs: 2 


ARR N 





CONVAH C=i 15 Sauvegarde du nombre de 
Li caractères dans C(S) 
P= 9 

BcL1 GOSBVL DRANGE  A(3) ? compris entre 30 et 
* 39 


GONC CVHID Si oui: CVH10 

GOSBVL CONVUC Ccnvertit A(B) en 

# majuscule 

LCASC ‘FA’ Bornes test pour l'appel 








GOSBVL RANGE 
* 

GC  Argerr 

Len) 


C=c-1 
GONC 
A=B 

* 


RTNCC 


de RANGE 

Vérifie si A(B) est entre 
AetF 

Si non: ERREUR 

On aditionne 9 au quartet 
de poids 

faible de A(8) 

Sauvegarde 

dans 8(0) 

On passe 

au caractère suivant 

CCS) = compteur 

B.E.T. 





pour La sortie de 
routine 
Retour avec Carry = 0 


UF S *éeeemeenneneneeenennenenennne 


NIBHEX 411 
* 


* 


GOSBVL REVPOP 
* 


c=0 A 

LC(1) 6 

2A#C A 
* 


GOYES Argerr 
* 


A=DATI 6 
* 


D1=D1+ 6 

* 

CD1EX 

RSTK=C 

= 2 

. 

GOSUB  CONVAH 
C=A A 

* 

GOSBVL 10FNDO 


GONC FIN 
* 


La fonction n'admet qu'un 
seul paramètre 

alphanumér ique 

Teste Le paramètre de La 
fonction et renvoie La 
Longueur 

de La chaîne alpha en 
quartets dans A(A). La 
chaîne est 

renversée sur La Math 
Stack. 

) On charge 6 

) dans CCA) pour 

) tester si La Longueur de 
La chaîne est bonne. 

Si elle est mauvaise: 
ERREUR. 

On charge La Longueur de 
La chaîne dans A(5-0) 

D1 * maintenant La fin de 
La chaîne. 

Sauvegarde de D1 

dans RSTK. 

P= nombre de caractères de 
ACW) à convertir en HEXA. 
Conversion ! 

CCX) = valeur HEXA de La 
chaîne introduite. 
Recherche du Buffer. 

Si Carry=0 : Le buffer 
n'existe pas: FIN 








GOSBVL HEXASC 
* 


C=RSTK 
D1=c 

GONC  Adh 
* 


D1=D1- 10 

* 

DATI=A 10 
RI=C 

* 

* 

ST=1 

* 

GOSBVL D=AVHS 
GOSBVL ADHEAD 
* 

GOSBVL REVS 
GOVLNG EXPR 


On réajuste L'adresse pour 
pointer Le début du buffer 
On charge l'adresse du 
buffer dans AÇA) 
Préparation (comme pour 
CONVAH) pour L'appel de 
HEXASC. 

) La routine HEXASC 

) demande que Le nombre 

) de quartets à convertir 
) soit dans CCS). 

) (de 0à7) 

Convertion de l'adresse en 
ASCII. 


) Restitution 

) de D1. 

Si L'on vient de "GONC 
FIN“ on branche en Adh. 
Autrement on place Le 
paramètre de retour sur 
La Math Stack. 
Indispensable avant 
L'appel de La routine 
ADHEAD. 

On veut un retour après 
L'appel de ADHEAD. 

DCA) = AVMEMS 
Construction de l'en-tête 
de La nouvelle chaîne. 
On renberse Le tout 

et retour à BASIC. 


SAR AE 


NIBHEX 411 
COIEX 

D1=C 
RSTK=C 
GOSBVL POP1S 
B=0 M 
B=A 

BSRB 

LCASC !.! 
ST=C 

LCASC 1-1 
D=C A 


B=B-1 A 
Goc SORTIE 


Un paramètre alpha. 
> 

) Sauvegarde de D1 

) dans RSTK. (opcode=1oct) 


) Division de La Longueur 
) de La chaîne par 

) 2. B=compteur de CHR. 
ST(B)="." 


D(3-0)=1- 


Reste-t-il des CHR ? 
Si non: SORTIE. 
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AS=DATI 8 

C=D A 
GOSBVL RANGE 
GONC ”D1 
C=ST 

DATI=C 8 
D1=D1+ 2 
GONC BOUCLE 


SORTIE STK 
D1=C 
GOVLNG EXPR 


ACB=CHR à tester. 
ct3-0)=1- 
31<CHR<127 ? 

Si oui: B.E.T. 
Autrement C(B)=1.! 
Le CHR devient !.! 
Ajuste Carry. 
B.E.T. 


Restitution de 
D1. 
et retour à BASIC. 


SARA ERA AE 


NIBHEX 411 
* 


* 
GosavL PoP1s 
CD0EX 

RSTK=C 

* 

cotEx 

pi=c 

Do=c 

GOSBVL D=AVMS 
D1=D1- 16 

* 

CD1EX 

C=C-A À 

2CD À 

* 


GOYES Memerr 


csL 

Lec1) 15 

DATI=C W 
* 


D1=01+ 16 
* 


C=0 
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Un seul paramètre 
alphanumérique pour La 
fonction ATHS 


Sauvegarde de La valeur de 
DO dans RSTK pour rendre 
Le pointeur DO disponible 
on place 

Le pointeur DO à La 
valeur de D1 

DCA) = AVMEMS 

Di pointe maintenant Le 
début du paramètre de ATHS 
Calcul de La Longueur 
de La future chaîne 
comparaison avec AVHEMS 
pour savoir s'il y a 
suffisamment de place en 
mémoire. Si non: “In. 
Memory" 

D1 * maintenant Le futur 
paramètre 

Sauvegarde dans RSTK 
Multiplication de La 
Longueur 

de La chaîne par 2 (N+N) 
et contruction de 
l'en-tête 

de La 

future chaîne 

et mise en place sur La 
Math Stack 

D1 pointe maintenant La 
fin de La future chaîne 
Mise à 0 pour permettre 





C=A 
“ 
CSRB 
D=C A 
C=c-1 S 


D=D-1 A 
* 


Goc Fin 
* 


=DATO 8 
* 


cc os 
* 

* 

GOSBVL HEXASC 
. 

* 

DATI=A 4 

« 

D0=D0+ 2 
D1=01+ 4 


GONC  ATH10 
* 


GOVLNG MEMERR 


CERSTK 
D1=C 
=RSTK 
DO=c 
GOVLNG EXPR 


des décalages et des 
opérations 

dans C(S) 

Division de La Longueur de 
La chaîne par 2 

pour initialiser Le 
compteur de boucle DA) 
CCS>= 15 


Reste-t-il encore des 
caractères à tester ? 

Non: branchement au Label 
"Fin" 

A(B) = caractère ASCII à 
transformer en HEXA 

Au retour de La routine 
HEXASC C(S) = 15 . A 
L'appel de 

cette routine C(S) = Nb. 
de quartets à transformer: 
#-1 

On place Le résultat de La 
transformation sur La M.S. 
Incrémentation des 
compteurs DO et D1 
Branchement inconditionnel 
(B.E.T.) 


Restitution 

des compteurs 

DO et 

pi 

et retour à BASIC. 


SAR RAA AIO 


NIBHEX 411 
GOSUB CNTBL 
* 

GOSUB ENTETE 
* 


* 


CNTBL 
* 


Goc FiN 


GOSBVL REVPOP 
* 


Suppression des blancs en 
début de chaîne. 
Construction de L'en-tête 
de La chaîne avant 
inversion. 

Suppression des blancs en 
fin de chaine. 

On branche en: FiN 


MPop' et renverse La 
chaîne. 





BLCOUT 


ENTETE 


CHNULL 


CHNULL 


AZDATI 
* 

?A#C 

RTNYES 

pt=01+ 
* 


* 


BLCOUT 





A=A-1 P 
D1=D1- 16 
DATI=A U 
“ 


RTN 


GOSUB ENTETE 
* 


GOVLNG EXPR 


END 


) Division de La longueur 
) de La chaîne 

) par 2 pour avoir un 

) compteur de 

) caractères dans 8(A). 

On charge Le CHRS(32) dans 
c«B). 

Reste-t-il encore des 
caractères dans La chaîne? 
Si non: on branche en 
chaîne nulle ! 

) Le caractère suivant 
)est-il 

) différent de CHRS(32) ? 
Si oui: fin de routine. 
Autrement on incrémente D1 
pour pointer de CHRS 
suivant. 

B.E.T 


Longueur de La ) en 
chaîne restante -1 Joctets 
Long. de La chaîne ) " 
Longueur de La chaine en 
quartets. 
LES LELLIO ) avec 
) LU = 
A = ....LLLLLO0 ) Longueur 
) de La 
A -LLLLLOF ) chaîne. 
Décrémentation de D1 pour 





placer l'en-tête de La 
nouvel le chaîne 
Retour 


Suppresssion d'un niveau 
de sous-programme si L'on 
vient 

de CNTBL. 

Construction de l'en-tête 
de La nouvelle chaîne. 
Retour à BASIC. 


Fin du LEX. 
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ACCELERER UNE RECHERCHE EN TABLE 
LA RECHERCHE DICHOTOMIQUE 


Soit une table TC), telle que 
TC1) <= T(2) <= T(3) <= ... <= TCN) il existe 1 
appartenant à €1,(2, ..., N} tel que V=TC1). 





1 milieu 


La méthode consiste à couper La table par Le 
milieu, en une partie inférieure et une partie 
supérieure. La table étant triée, nous pouvons 
dire si La valeur cherchée est dans L'une ou 
L'autre partie. 

En changeant Les bornes d'une manière judicieuse, 
on applique à nouveau l'algorithme sur La table 
inférieure ou supérieure jusqu'à obtenir une 


table à un seul élément (si La solution existe). 


Jean-Claude FOURES (#178) 


Des Polynômes et des Croissants. 


Le programme POLYCRST que Les Productions JPC 
and Co ont l'honneur et l'avantage de vous 
présenter effectue La division suivant Les 
puissances croissantes de deux polynômes donnés. 
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D'abord, un peu de théorie. Soient À et B deux 
polynômes tq 8(0)#0 (ou valB=0). Pour tout n 
appartenant à N, il existe un seul couple de 
polynômes (Qn,Rn) vérifiant : 
A=B%*Qn+X"n#i * Rn, avec deg.(Qn)<z: 
an s'appelle Le quotient à l'ordre n et fn Le 
reste d'ordre n. 

La différence essentielle avec La division 
euclidienne de deux polynômes (selon Les 
puissances croissantes) est qu'ici Le couple 
CQuotient,Reste) n'est pas unique car dépendant 
de L'ordre n choisi. Dans La pratique, ce type 
de division polynômiale est utilisé dans Le 
calcul de développements Limités (DL) ou pour La 
recherche de parties polaires dans Les 
décompositions en fractions rationnelles. 

Venons en à ce qui nous intéresse, à savoir 
POLYCRST. La principale caractéristique de ce 
programme est qu'il effectue tous ses calculs 
sous forme fractionnaire. Mais un exemple sera 
plus parlant. 





Soit à déterminer Le DL de La fonction tangente 
au voisinage de zéro à l'ordre 5. Les matheux 
savent qu'il faut pour cela calculer Le rapport de 
X -1/6 X°3 +1/120 X°S sur 1 -1/2 X°2 +1/24 X°4 
à L'ordre 5 (soit Le rapport selon Les 
puissances croissantes du DL de La fonction 
sinus à l'ordre 5 sur celui de La fonction 
cosinus à l'ordre 5). 

Pour cela : RUN POLYCRST puis : 

Degré deP ? ; entrer Le degré du polynôme 
numérateur, soit 5. 

X"0 ? ; entrer Le coefficient du monôme de 
degré 0, soit 0. : 

X°1 ? ; idem pour degré 1, soit 1. 

X°2 ? ; idem pour degré 2, soit 0. 

X*3 ? ; attention, comme on a ici une fraction, 
entrer -1,6. 

X°4 2 ; entrer 0. 

X*5 ? ; enfin, entrer 1,120. 

Degré de Q ? ; entrer Le degré du polynôme 
dénominateur, soit 4. 

X"0 ? ; entrer 1. 

X12 ; 0. 

X°2 ? ; entrer ici -1,2. 

X32 ;0. 

X°4 2 ; entrer 1,24. 

Ordre ? ; entrer l'ordre de La division, soit 5 
ici. 

Un compte à rebours vous permet alors d'estimer 
La durée du calcul. Enfin s'affiche : 








Quotient à X +1/3 X°3 +2/15 X5 

On appuie sur CONT pour obtenir Le reste : 

Reste : 19/360 X°7 -1/180 x°9 

Un nouveau CONT retourne au programme principal 
(car on se trouvait dans Un SUB) et un 2ième 
redonne Les résultats. 


La Lenteur (relative) du programme s'explique 
par Le fait qu'à chaque stade du calcul, Les 
fractions intermédiaires sont simplifiées. 
Ainsi, Les résultats obtenus sont Les plus 
simples possibles et La Limite de 12 chiffres 
n'est pas trop vite atteinte, 
“l'intégrité! des fractions. Dans Le même ordre 
d'idées, si Le résultat affiché n'est pes 
complet (polynôme trop Long), appuyer sur CONT ; 
Le reste arrive alors par défilement. 


préservant 


Quelques précisions techniques sur Le programme 
pour conclure. 
* Variables : 
PO : degré du numérateur 
Q0 : degré du dénominateur 
X : ordre de La division 
N2,D2 : calculs partiels 
A,M,J : pointeurs. 
* Tableaux 
N et D : numérateur (P) puis Reste 
O et E : dénominateur (Q) 
Q1 et Q2 : Quotient. 
* Routines : 
SMCN,D) : divise N et D par Leur PGCD. 
POLYC(N(),DC),T) : construit et affiche le 
polynôme de degré T dont Les numérateurs des 
coeffi 








ients sont en Net les dénominateurs 





en D. 
INPCN,D,A) : entrée du coefficient d'ordre A 
en N et D, entier ou fractionnaire. 


Voilà, c'est tout. Je pense que, désormais, 
vous en savez à peu près autant que moi sur Les 


divisions de polynômes suivent Les puissances 
croissantes. Maïs gare à L'indigestion.…… 


Olivier Arbey (SIG#7-P118-1164) 





FORMATONS, FORMATIONS (SUITE, SUITE Le 





Le module Editeur de Texte est assez pratique, 
en ce sens qu'il permet de faire de La 
tabulation sans interface vidéo ni imprimante. 
Malheureusement, Lors de La phase d'impression, 
sa présence est indispensable puisqu'il lui faut 
interpréter des codes de contrôle. IL est donc 
impossible d'envoyer l'article ainsi rédigé à 
une personne qui n'en est pas muni; ou qui 
refuse de s'en servir (si je suis censuré je 
saurai au moins pouquoi ...). D'autre part 
L'opération de formatage prend du temps, et il 
est toujours désagréable d'attendre pour un 
travail dont on sait qu'il a déja été éffectué 
(si demande de plusieurs exemplaires). 


Bref pour La modique somme de 600 octets voici 
ma solution. Notons que ce travail a été rendu 
possible grâce à La structure très ouverte du 
programme de base: une excellente initiative qui 
permet à chacun d'adapter Le produit à ses 
besoins. 


Le principe consiste à intercepter La routine 
d'écriture imprimante (EDITFPR1). Voyez votre 
manuel à ce sujet (page 81). 


MODE D'EMPLOI 
Le maniement reste le même, avec une commande 
supplémentaire: © (pour ‘fichier Objet‘). Prenez 


votre 71 et suîvez-moi. 


1)[Tapez: MEDTEXT JPC,O" ... A l'exception de 
‘Working! qui s'affiche rien d'anormal 





2)|Rentrez un texte quelconque en utilisant des 
codes de formattage. 

3)Exécutez La commande "F" ... A l'exception 
de "Horking" qui s'affiche rien ne se passe. En 
fait il se passe que votre 71 écrit Le texte 
correctement tabulé non pas sur l'imprimante, 
mais DANS un fichier intitulé EDLISTE. 


Ce fichier est en quelque sorte l'image du 
texte introduit, d'où son nom "d'objet" (élaboré 
à partir de...). Et c'est Lui que vous pourrez 
Librement transmettre à La rédaction de votre 
Journal préféré ! 
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Autre possibilité offerte par ce modeste 
programme: vous pouvez taper EDTEXT TOTO:TAPE(2) 
Cou EDTEXT TOTO.DISK1,T;F;E). Le fichier est 
alors recopié en mémoire et édité. Les messages 
d'erreur sont ceux que vous connaissez depuis 
Longtemps: ("File Not Found')... Notons que si 
Le fichier existe déja en RAM, il ne sera pas 
écrasé ("File Exists"). 


Je ne rentre pas dans Le détail du programme dont 
La compréhension ne pose aucun problème. Aller, 
jouez maintenant 1... 


Jean-Pierre BONDU (33) 


PS: L'état du drapeau 2 indique l'option choisie. 


CALCULS DE DATES 


A La Lecture des "premiers" programmes pour 
HP71B, JPC No 16 à 20, j'ai été attiré par le 
programme nommé "Date du No 17, puis, par un 
programme analogue paru en dans Le numéro d'Avril. 
Pour ma part, j'avais écrit un programe de 
calendrier sur plusieurs millions d'années (de 
L'année 0 à disons, l'infini 1), mais pensant 
que personne ne s'y intéresserait, j'hésitais à 
L'envoyer. 


Cette routine reprend Les options qu'offre Le 
programme du manuel d'application de La HP£1 (ce 
Livre est vendu avec La machine, je crois) qu'un 
ami m'avait photocopié et Les deux formules 
utilisées par Le programme Master Library No 22 
d'une Texas Instrument T159. Ces formules 
donnent en effet, de meilleurs résultats pour 
les calcuis faits sur des dates commme Le 


29/02/1986 par exemple. 


Si a désigne l'année, m Le mois et j Le jour, 
ces formules s'écrivent: 

+ Pour Janvier et Février: F= 
365a+j+31(m-1)+E[(a-1)/41-EL3/4CELCCa-1)/100)+11)] 
+ Et de Mars à Décembre: F= 
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365a+j+31(m-1)+Eém+2.3)+E(a/4]-E(3/4(E(a/100)+1)] 
où E(x) représente La partie entière de x. 


Ce facteur F permet de mener très simplement 
toutes Les opérations sur Les dates. 


Pour connaître Le nombre de jours compris entre 
deux dates données, on calcule Le facteur de 
chacune d'elles et on fait La différence de Leur 
facteur. 


Le jour de La semaine correspondant à une date 
donnée est Lui auusi, déterminé à partir du 
facteur F. On aura: Jour de La semaine=Mod(F,7) 
C“Mod" designe La fonction Modulo...). 


Un peu plus compliqué est le calcul d'une date 
à partir d'une autre date et connaissant le 
nombre de jours qui suit cette date (ou La 
précède); 

Exemple: mous sommes Le 23/07. La date dans 100 
jours sera Le 31/10/1985... 

Pour cela, j'ai établi de facon empirique que 
L'année était donnée par a=E(F/365.25) et le 
mois par mEi(F-365.25*a)/30.6]+1. Le jour, 
quant à Lui, correspond à La différence entre F 
et Le facteur appliqué avec a, m, et j=0. 

Bien sûr, il convient de vérifier que cette 
différence est bien comprise entre 0 et 31 et 
plus généralement que La date ainsi obtenue est 
correcte, c'est Le rôle du sous-programme "Test" 
(Ce même sous-programme teste Les entrées au 
clavier). 

Toujours de facon empirique, si La date 
obtenue n'est pas valide, il suffit de rajouter 
1 àmen réajustant Les jours et si mi2 de 
faire a=a+1 et m1. 

Des essais effectués sur des dates comprises 
entre l'an O0 et 9999 ont prouvé que cette 
méthode était efficace. 


C'est La version anglaise du programme que j'ai 
choisi de vous proposer. Mais, si cela vous 
donne de l'urticer (1) , modifier sans tarder, 
Les contenus des variables W$ et X$ en Ligne 20 
et remplacer en ligne 40, "Day" par "Jour" 
Ligne 180, Le message pourra être modifié à 
votre gré, etc... 


Plus pratiquement maintenant, voyons 
l'utilisation de MDDAYS2" (Des test avaient 
prouvé que "DDAYS" n'était pas tout à fait au 
point, d'où La version II ). 





Après [RUN] (*) MM,DD,YYYY?, entrer une date 
officielle sous forme mois (Janvier=1  ... 
Décembre=12), Jour, Année. 

Après [ENDLINEJ: (1),(2),(3) ? Trois options. 
Mais si vous constatez une erreur dans 
L'introduction de La date précédente, tapez 0 
Tapez 1 si Vous voulez connaître Le nombre de 
jours entre deux dates. Après l'affichage de 
(#3, donner La seconde date. 

Tapez 2 si vous désirez connaître Le jour de La 
semaine. 

Tapez 3 pour connaître une date correspondant à 
un nombre de jours donnés. Si "period in days" 
<0 alors il s'agira d'une date dans Le passé, 
sinon il s'agira d'une date dans Le futur. 

Le résultat apparaît ensuite à l'affichage. 
Remarquons que Le facteur F attribué à une 
date, étant declaré en "real", il est possible 
de calculer Le nombre de jours entre Le 25 mars 
2005 et le premier janvier 1787 en introduisant 
le 25/03/2005 d'abord. IL suffira d'interpréter 
Le nombre négatif ! 


Amicalement 
Xavier BILLE 


ndlr: nous avons cherché Longtemps pour trouver La 


signification de "urticer! Cela pourrait être, 





selon certains, "urticaire! 





CARRES MAGIQUES 


Vous connaissez tous Les carrés magiques ? Si 
si,  rappelez-vous: ce sont des tableaux de 
nombres (matrices), dont La somme des Lignes est 
égale à La somme des colonnes et La somme des 
diagonales. 


Finies Les Longues soirées d'hivers à chercher 
Les solutions armé de son seul crayon. Mon 
programme arrive à point pour vous éviter de 
vous fatiguer. 


RUN CARRE 





Vous entrez un nombre (impair bien sûr), et 
vous voyez devant vos yeux ébahis se dessiner un 
carré (magique bien sûr) ! 


Exemple: pour n°3 
4 9 


3 5 
8 1 


Jean-Claude FOURES (P178) 





TESTS STATISTIQUES 


Cher Pierre, 


Voici sept programmes de tests statistiques: 
D'abord 4 tests paramétriques: 


STUDTEST (3238 octets): test de comparaison de 
2 moyennes. Observations appariées ou non (en 
fait, test de Student). 

VARTEST (2474 octets): test de comparaison de 2 
variances (en fait, test de Snedecor-Fisher). 
KI2TEST (5761 octets): test du CHI2 pour 
petits, moyens, et grands échantillons (soit 
test de comparaison, soit de contingence). 

ANVART (3775 octets): test d'analyse de La 
variance à 1 facteur ("sachant" que Les 
variances sont Les mêmes, ce test sert à 
comparer plusieurs moyennes). Test très robuste. 


Ensuite 3 tests non paramétriques (on ne fait 
pas d'hypothèses sur Les v.a. de l'échantillon): 


MANWWILE (7164 octets): test (des rangs) de 
Mann-Whitney et Wilcoxon comparant 2 populations. 
CORSPEAR (5391 octets): test de corrélation de 
Spearmann, portant sur l'indépendance entre 2 
variables quantitatives. 

KRUSHALL (4537 octets): test de Kruskall et 
Wailis portant sur La Liaison éventuelle entre 
un caractère quantitatif et un caractère 
qualitatif à P classes. 
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Ces 7 tests sont conçus pour Un système 
comportant: HP-71B, Lecteur de cassette, et 
imprimante  Thinkjet. Ils sont, bien entendu, 
utilisables sans ces 2 derniers accessoires. S'il 
n'y a pas de lecteur de cassette dans La boucle, 
je conseille de faire l'opération (à l'aide d'un 
éditeur de texte): 

remplacer "SEND LPD" par MBEEP 100" (par exemple) 


Bien que non nécessaire, j'ai utilisé Le plus 
possible Le module MATH (il est à demeure dans 
mon engin). Par exemple CNORMCN) vaut La somme 
des composantes du vecteur N (si positif); 
d'autre part MAT INPUT À est agréable, et enfin 
Le vecteur Ligne Y(1,.) est plus joli à imprimer 
par "MAT PRINT Y;" qu'un vecteur colonne qui 
bouffe du papier, etc. 


Les Lois de probabilités: chi, student,normale 
etc. sont développées de manière "classique". 
Seule La loi de Fisher-Snedecor utilise l'ordre 
INTEGRAL (relativement lent, mais correct (il 
n'y a pas, ici, de méthode classique, sauf des 
approximations douteuses)). 


Je me suis inpiré du Livre de G.Robert: "Tests 
statistiques usuels" (Ed. Aemavi). 


Pour répondre aux questions dichotomiques j'ai 
utilisé un sous programme OUINON inspiré des 
Utilitariets, ce qui fait que Le LEX KEYMAIT est 
NECESSAIRE! (IL se trouve dans JPC No 20 
p.52)(où on Le décortique en long, en Large et 
en travers, mais où Mon“ oublie de dire à quoi 
il serti1). 

Grâce à ce OUINON, il suffit d'appuyer 

sur O ou N pour La question Oui/Non ? 

sur F ou C pour La question Fichier/Clavier ? 


La saisie des données peut se faire soit au 
soit sur fichier DATA, et chaque 
programme permet de sauvegarder Les entrées 


clavier, 


faites. 
J'ai essayé de Mnormaliser” ces fichiers de 
données (cela se fait automatiquement Lorsque on 
Les entre au clavier). 
SAUF pour KI2TEST Les fichiers de données sont 
de La forme: 

KO KO YO 


Nombre de "niveaux d'observation" 
P=2 pour VARTEST, STUDTEST, MANWWILC, et CORSPEAR 
P=quelconque pour ANVART et KRUSHALL 
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NO: vecteur donnant La dimension de chaque niveau 
KSO: vecteur donnant Le nom de chaque niveau 
YO: c'est Les données classées les unes 
aprés Les autres (sous La forme d'un grand 
vecteur). 


POUR KI2TEST Le fichier DATA est de La forme: 

2 C NSC) XCD YO) pour La comparaison 
de 2 séries 

et 

LC NS() Z(,) pour un tableau de 
contingence. (mais si l'on réfléchit bien, ces 2 
dernières lignes ont La même forme). 


Pour Les entrées au clavier, Llorque une 
correction est nécessaire: un ordre PAUSE est 
inséré et il n'y a qu'à taper La correction 
complète. Ex: si Y(1,23)=25 est faux, alors 
corriger en tapant entièrement: 

YC,23)=25.4 etc. 
puis faire [f] (CONTI. 


Lorsque il a fallut utiliser un algorithme de 
tri, c'est Le tri SHELL, l'un des "moins" Lents en 
BASIC, qui a été choisi. (Je suggère que Les 
fous de Lex le fasse en LEX (tri numérique et 


alpha-numérique: ce sera chouette). 


Dans Les tests MANWWILC et CORSPEAR Les rangs 
exaequo sont départagés par tirage au sort (ce 
qui signifie que les mêmes valeurs, au départ, 
peuvent donner des résultats 
différents). Pour des 
programmation CORSPEAR ne peut entrer, par 
niveau, que 90 données (lorsque Le tri sera 


légèrement 
sous-raisons de 


LEXisé, on avisera) . 


De temps en temps je fais afficher La moyenne 
et l'écart-type de chaque niveau. Cela dépend de 
La réponse à La question OUINON:  “Impr.du 
fichier (O/N)2". 


Enfin s'il y a des bits (en anglais: bugs) (et 
il yen a sûrement) je vous remerie de me Le 
signaler. Et ceux qui n'ont pas envie de taper 
Le Listing n'ont qu'à m'envoyer une cassette. 


Michel WEIL 





Programme "DICHO" 


Recherche dichotomique 
DESTROY ALL 

INPUT "Dim. de La table="; 
DIM TCN) 

50 FOR 1=1 TO N 
60 INPUT "Elémen: 
70 NEXT 1! 

80 INPUT "Valeur cherchée ?";V 
90 MO=1 

100 IF T(MO)=V THEN "TROUVE 
110 MO=N 

120 IF T(M9)=V THEN *TROUVE! 
130 M=INT((MO+M9)/2) 

140 IF T(M)=V THEN TROUVE' 

150 IF MO=M THEN "PASTROUV! 


2! 
3 
4 


8 S 





SS8 





8 





160 IF T(M)>V THEN M9=M ELSE MO=M 
170 GOTO 130 






*TROUVE': DISP "Trouvé indice=";M @ END 






DISP "Pas trouvé . . ." @ END 


ARR RD ARE 


Programme MPOLYCRST" 


POLYCRST 

DESTROY ALL @ OPTION BASE O à STD 
Entrée de P dans N et D 

INPUT "Degr de P ? ";P0 

DIM NCPO),D(PO) 

50 FOR A=0 TO PO 

60'CALL INPCNÇA),DCA),A) 

70 NEXT À 

Entrée de Q dans O et E 

80 INPUT "Degr de Q ? ";a0 

90 DIM O(Q0),E(Q0) 

100 FOR A=0 TO Q0 

110 CALL INP(OCA),ECA),A) 

120 NEXT A 

Entrée de l'ordre dans X 

INPUT Ordre ? #;X 

Initialisation de Q1 et Q2 et redimensionnement de N et D 
140 DIM Q1(X),02CX),NCQO+X),D(Q0+X) 
Evite problème du zéro dans D 

150 FOR T=PO+1 TO Q0+X à DCT)=1 à NEXT T 
Début de La boucle de calcul et compte à rebours 
160 FOR M=0 TO X à DISP X-M 

Calcul du Mième monôme du Quotient 
170 Q1(M)=N(M)*E(0) @ Q2(M)=D(M)*0(0) 

180 CALL SM(Q1(M),02(M)) 

Boucle de calcul du Reste 


2 


è 


3 
4 


8566 


8 8 


13. 


ë 


E 
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190 FOR J=0 TO Q0 

- Multiplication du diviseur par Le quotient partiel... 
200 N2=0(J)*Q1(M) 8 D2=E(J)*Q2(M) 
210 CALL SMCN2,D2) 
... et calcul du nouveau reste 
220 NCM+J)=NCM+J)*D2-DCM+J)*N2 
230 D(M+J)=D(M+J)*D2 
240 CALL SMCNCM+J),DCM+J)) 

- Fin de La boucle de calcul 
250 NEXT J à NEXT M 
Affichage des résultats 
260 BEEP INF 
270 DISP "Quotient :"; 
280 CALL POLY(Q1(),02(),X) 
290 DISP "Reste :"; 
300 CALL POLYCNC),DC),004X) 
310 PAUSE à GOTO 260 
Simplification des fractions 





8 





320 SUB SM(N,D) 

330 A=N à B=D 

340 C=MOD(A,B) @ IF C THEN A=B @ B-C @ GOTO 340 
350 N=N/B à D=D/B 

360 END SUB 





Entrée des polynômes avec INPUT partiel 





370 SUB INPCN,D,A) 
380 ON ERROR GOTO 410 
390 DISP MXAM;STRSCA);" M; INPUT N,D 


400 IF D THEN 420 ELSE à GOTO 420 

410 1F ERRN=1040 THEN D=1 @ GOTO 420 ELSE 390 
420 CALL SMCN,D) @ OFF ERROR 

430 END SUB 








Construction des polynômes-résultats 





8 


440 SUB POLY(N(),DC),T) 

450 DIM R$[96] à RS='! 

460 FOR H=0 TO T 

470 G=NCH)/DCH) 

480 1F G THEN 490 ELSE 610 

490 1F ABS(G)#1 THEN 510 ELSE IF G=1 THEN R$=R$&" + ELSE R$=R$&" 
500 IF ABS(G)=1 AND H=0 THEN RS=R$&" 1" @ GOTO 590 ELSE 560 

510 1F G>0 THEN R$S=RS&" +" 

520 IF FP(G) THEN 530 ELSE RS$S=R$&STRS(G) à GOTO 550 

530 IF G<0 THEN R$=R$&" 
540 RS=RS&STRS(ABS(NCH)))&"/MESTRSCABS(D(H)))E" M 

550 IF H THEN 560 ELSE 590 

560 R$S=RS& MX" 

570 1F H=1 THEN 590 

580 RS=RS&""MESTRS(H) 

590 IF R$S[2,2]='+! THEN RS=" MBRS [3] 

600 IF LENCR$S)<41 THEN 610 ELSE DISP R$ à PAUSE à R$='! 
610 NEXT H 


8 








8 8 





8 
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620 IF LENCRS)=0 THEN DISP " O" ELSE DISP RS 
630 PAUSE 
640 END SUB 


HR RRR HN NARNIA DA AE A 


Programme "TEXTFORM“ 





1000 SUB EDTEXT(JS,US) 

1010 DELAY .1 @ F=FLAG(2,0) à GOSUB ‘R' 

1020 PI=POS(i$,'.1) à P2=POS(JS,':!) à IF NOT (PT OR P2) THEN 1060 
1030 ON ERROR GOTO 'E! à COPY JS 

1040 IF P1 AND P2 THEN PI=MIN(P1,P2) ELSE P1=MAX(P1,P2) 
1050 JScP11=u" 

1060 IF J$='EDLISTE! OR U$C1,11#"O" THEN ‘F1! 

1070 U$=U$(2] à ON ERROR GOTO 1090 

1080 UNSECURE EDLISTE @ PURGE EDLISTE 

1090 ON ERROR GOTO ‘E! 

1100 CREATE TEXT EDLISTE à SFLAG 2 @ GOTO ‘Fi! 





1110 'E': BEEP à DISP ERRMS à GOTO ‘F2! 





1120 'R': IF NUMCUS)=32 THEN US=US[2] à GOTO ‘R' ELSE RETURN 





1130 ‘F1: DISP MSGS(240010) 
1140 CALL EDTEXT(JS,US) IN EDTEXT 






1150 ‘F2': IF FLAG(2,F) AND NOT FILESZR(' 
1160 END SUB 













ITFPRICAS, 85) 
NOT FLAG(2) THEN PRINT AS&BS à 
#9 TO EDLISTE & STORE #9,INF & PRINT #9;AS£8S 





1180 
1190 


1200 











R] 
N1))/2 8 CS=CS8" " 9 KEXT : 





1220 FOR 1=1 TO L+(R-L)/2- 
1230 CS=CES'-*ASTRS(NI)S I - 

1240 IF NOT FLAG(2) THEN PRINT CS & END 
1250 ASSIGN #9 TO EDLISTE à RESTORE #9, 
1260 END SUB 





à PRINT #9;CS 


RAR RADIO OA 


Programme !'ODAYS2" 
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JPC 


10 DESTROY ALL à DIM WS(21],X536] à INTEGER T,Y,M,D 
+ WS contiendra Les abréviations des noms des jours de La semaine. 
X5 Les abréviations des noms des mois. 
T représentera L'option choisie (0,1,2, ou 3). 
Y représentera L'année (ce ce fait, Le programme “Limite Le calendrier à 10*6 années), 
M Le mois, et D Le jour. 
20 X5=1JanFebMarAprMayJunjul Aus: 
+ Initialisation des variables XS et 15. 
GOSUB MAD! 3 INPUT "(1),(2),(3):";T à T=MODCT,4) & CN T#1 GOTO 30,49,50,60 
- Appel à La sous-routine "AD" chargée du contrêle de L'introduction des dates au clavier 
-..puis choix de L'option : 
option 1 : Nombre de jours entre 2 dates (DDAYS"). 
Option 2 : Nom du jour de La semaine correspondant à une date ("DO"). 
Option 3 : Date correspondant à un décalage de x jours par rapport à La date de référence 











introduite avant Le choix de l'option ("DATE+#). 

Enfin, branchement à La routine correspondant à L'option choisie. 
4O A=F à GOSUB ‘AD' à DISP F-A;"DayM&CHRS(115*CABS(F-A)>1))8".1 9 END 
Option 1 : DDAYS 
L'eccumulateur A permet de stocker Le premier facteur en attendant Le calcul du second. 
CHR$(115) représente Le ‘st minuscule. 
WEMOD(F,7)*3 à DISP US(W+1, +318". 
Option 2 : DOW ê 
W représente un jour de La semaine et pointe dans 4$ Le “nom (codé sur 3 caractères) 
qui lui correspond. 
60 INPUT “Period (in days) : ";P à F=F+P & Y=IP(F/365.25) à M=IP((F-365.25*Y)/30.6)+1 à A=F 
Option 3 : DATE+ 
Introduction du nombre de jours séparant La date de référence de La date cherchée.….… 


5 


e 


& GOSUB ‘PRT' à END 





...Puis, après ajustement, décemposition du facteur en années et mois. 
Viennent ensuite Le calcui de D (date dans Le mois) et Les tests de validité de {a date 
ainsi obtenue. 
70 D=0 à GOSUS FOR! & D=A-F 9 GOSUB (TEST! 8 IF 
Flag(0) représente une condition d'erreur c'est 
€0 1F M>12 N Y=Y+1 9 M=1 
- On teste La validité du mois 
$C coTo 70 
- On boucie et Le calcul est refait avec Les 





“PRT! 9 EN 






G(0) THEN M=M+1 
dire une date erronn: 








vient d'être modifié. 








S changements survenus sur Le mois (et éventueilement sur t'année). 






O0 ‘AD': 
2 ape 





INPUT " 





nm, cd, Yyyy";M,0,Y 8 GOSUS 
troduction ces 





ates au clavier et teste Leurs validité 





me de facteur. 
N 8: ä GOTO 
COSUS ‘FOR! 











130 (TEST': CFLAG O G IF MINCH,D)<1 OR D>31 CR M>12 7: 
2, 1<=0D<251 
140 IF D=31 AND CH=6 CR CR M=9 
- crible Les mois d'Avril, Juin, Septembre, Novembre qui n'ent 
150 IF M#2 THEN 130 
- Si Le mois n'est pas février alors ce qui suit n'est pas utile. 
160 IF D>28 AND MOD(Y,4)+NOT Y OR D>29 AND NOT (MODCY,4)+Y) T AG O à RETURN 
Commence par tester Les années bissextiies, des autres (l'année 0 par exempie). 
170 1F D>28 AND FPCY/100)=0 AND MODCY,400) THEN SFLAG O @ RETURN 
- Teste Les débuts de siècles bissextiles (1600,2000), des autres (1700,1800,1900). 
180 1F Y<1582 THEN BEEP 1000,.1 à DISP “ MARNING : No such date on Gregorian calendar“ 
- Un honneur au pape Grégoire. 
190 RETURN 








te si 1<=MM 





=11 
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200 FOR': F=365*Y+D+31*(M-1)+IPCCY-(M>3))/4)-1PC.75*CIPCCY-CM<3))/100)+1))-(M>2)*1PC.4*M+2.3) 
- Les deux formules condensées en une, pas vraiment évidente. 
210 RETURN 








220 ‘PRT': X=M*3-2 Q DISP XSIX,X+2];D;Y à WAIT .5.@ RETURN 
+ Un peu d'affichage pour l'esthétique. X représente Le mois et pointe sur son nom dans X$. 
Sans Les commentaires, pas plus de 876 octets... 





HAN DRCA CA CR ER R 


Programme "CARRE" 


Carré magique 

20 INPUT “nombre impair=";N 
30 DIM-CCN,N) 

40 FOR TO N à FOR J=1 TO N 
50 CC1,J)=0 

60 NEXT J à NEXT ! 

70 1=(N+3)/2 à J=(N+1)/2 
80 CC1,1)=1 

90 M=N"2 

100 FOR K=2 TO M 

110 J=J+1 

120 IF J>N THEN J=1 

130 1=1+1 

140 IF I>N THEN 1=1 

150 IF C(I,J)=0 THEN GOTO 190 
160 J=J-1 

170 IF J=0 THEN J=N 

180 GOTO 130 

190 CCI, J)=K 

200 NEXT K 

210 S=0 

220 FOR I=N TO 1 STEP -1 
230 S=S+CCI,1) 

240 NEXT ! 

250 PRINT 

260 FOR TON 

270 FOR TON 

280 PRINT TAB(J*6);CC1, 1); 
290 NEXT J 

300 NEXT 1 

310 PRINT 





8s 





HD 


Programme “STUDTEST" 


- test de Student pour 2 MOYENNES 

Michel Weil, 2a rue des jardins, 25000 BESANCON 
20 DESTROY ALL à OPTION BASE 1 @ PRINT à PRINT USING "80('*')" à PRINT 
30 CFLAG 0,2,3 à SEND LPD 
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50 DIM MC2),VC2),1S132],1$031,US121,MS(8] à INTEGER A,B,M1,1 
60 TS=UTEST d'EGALITE de 2 MOYENNES" 9 DISP TS à DELAY 0,0 
70 LINPUT "Nbre de déci.? 
75 INPUT "Nom de l'analyse ? ";MS 

Eù CALL MENU 

90 1F FLAGC3) THEN GOSUB (CLAVIER! ELSE GOSUB ‘FICHIER' 

100 1F NC1)=NC2) THEN LINPUT “Non-Pairées/Pairées?", *NP!;US ELS] 
110 US=UPRCS(US) 8 IF US= NP THEN CFLAG 2 ELSE SFLAG 2 

120 IF FLAG(2) THEN CALL TPAIREESCNC),YC,),X,N9) ELSE CALL THPAIREECNC) MC), VO), X,N9) 
130 CALL 2ESULT(MS,T5,18,N9,X,P1) & SEND LPD 

140 1F FLAGC3) THEN CALL SAUVECMS,2,NC),NSO),YC,)) 

159 END 











ë 





Saisie sur clavier 





510 ‘FICHIER': 
530 ASSIGN #1 TO M$ à READ #1;P 





540 INTEGER N(P) à DIM NS(P)[E] à READ #1;N,NS 
550 DIM YC1,CNORM(N)) à READ #1;Y @ ASSIGN #1 TO * 


8 





570 M1=0 à FOR 1=1 TO 2 à MI=MI+NCI) Q A=MI-NCI)+1 3 B=MI 
580 CALL AFFMOYETCI,A,B,NSC),YC,),MCI),VCI),15) 

590 NEXT 1 3 RETURN 

Saisie sur clavier 





730 CREATE DATA MS @ ASSIGN #1 TO MS 
74G FOR I=1 TO 2 à STD 
750 DISP "Nbre mes.";1;"eniveau"; 





NPUT NI) @ DESTROY Y 
760 DISP “Nom du niveau’ NPUT N$CI) à PRINT NS(1) à DIM Y(1,NC1)) 
770 DISP “Val.du MAT INPUT Y & MAT PRINT Y; 
780 0$="Corr.à ce niveau?(0/N)" 3 CALL CUINON(O$,A) à CN A+i GOTO E00,790 
790 DISP Y(1,23 Lt & PAUSE 
800 PRINT #1;Y & A=1 à B=N(I) & CALL AFFMOYET(I,A,E,NSC),Y: 
810 NEXT ! 
TROY Y à ASSIGN #1 TO * 
830 DIM YC1,CNORMCK)) & ASSIGN #1 TO MS à READ #1;Y 
240 RETURN 

- Affiche moyenne et écart 









iveauns ts 























FLAG(O) VaV*Y 8 € 
pour: M:N$(I) & FIX VA 





1059 PRINT TAB(29 
1060 PRINT TAB(20) 


1070 END 











Calcui du coefficient t pour des valeurs non pairées 





1110 SUS TNPAIREECNC),HC),VOD,X,N9) 
1120 S=C(HC1)-1I*VCDIECNC2)- 1) VC2)/CHCTIENC2)-2) 





1130 X=ABSCCH(1)-MC2))/SORCS/NC1)+S/NC2)3) 


1140 NSENCI)+N(2)-2 
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1150 END SUB 





Calcul du coefficient t pour des valeurs pairées 






SUB TPAIREES(NC),YC,3,X,N9) 
1220 STAT H(1) @ FOR 1=1 TO NC1) @ ADD YC1,1)-YC1,NC13+1) @ NEXT I 
1230 M=MEAN(1) @ V=SDEV(1)*SDEV(1) @ CLSTAT 

1240 X=ABS(M)/SQR(ABS(V/NC1))) @ N9=NC1)-1 

1250 END SUB 





Sauvegarde des données 





1510 SUB SAUVECMS,K,NC),NSC),YC,)) 


1520 0$="Sauv.des données?(0/N)" à CALL OUINON(OS,1) 8 ON 1#1 GOTO !FIN',1530 
1530 LINPUT "Nom de ce fichier?",MS;MS à CREATE DATA MS 

1560 ASSIGN #1 TO MS à PRINT #1;K,N,NS,Y @ ‘FIN': 

1550 END SUB 








Calcule La Student-proba 





1610 SUB TPROBACN9,X,Q) 
1620 RADIANS à X1=X/SQR(N9) à T=ATAN(X1) 
1630 1F N9=1 THEN B=T*2/PI à GOTO 'A' 


S 


1640 T9=COS(T)"2 à NB=2*INTCN9/2) @ IF NB=N9 THEN B' 
1650 B=COS(T) à 19=8*8 à V=B à IF N9=3 THEN ‘C' 
1660 FOR 1=2 TO N9-3 STEP 2 Q V=V*T9*1/(1+1) à B=8+V @ NEXT 1 





1670 'C': B=B*SIN(T) @ B=(B+T)*2/PI @ GOTO ‘A! 






1B': T9=COS(T)"2 à B=1 a à 1F N9=2 THEN 'D' 
1690 FOR 1=1 TO N9-3 STEP 2 @ V=V*T9*1/(1+1) à B=B+V @ NEXT 1! 





1700 'D': B=B*SIN(T) 





1710 
1720 END SUB 





C1-((1+B)/2))*2 





Fonction réponse à (O/N),(C/F) 





1812 SUB OUINON(OS,0) 

1814 DISP Q$ à 1=POS("NOFC",UPRCS(KEYWAITS[1,11))-1 @ IF I<O THEN 1814 
1816 Q=MOD(I,2) à END SUB 

Choix des options 





1852 SUB MENU 
1854 Q$="Clavier/Fichier (C/F)?" @ CALL OUINON(QS,Q) à DISP FLAG(3,0) 
1856 W$=!Impr. MOY-E.T. (O/N)2! @ CALL OUINON(WS,Q) à DISP FLAG(O,Q) 
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1870 


END SUB 





Affichage du t et de La probabilité 





1910 
1915 
1920 
1930 
1940 
1950 
1960 
1970 
1980 


SUB RESULT(MS,TS,1$,N9,X,P1) à DELAY 2,.2 @ FIX VAL(IS) 
1F FLAG(2) THEN A$="(cas pairées)" ELSE A$="(cas non-pairées)" 
PRINT à PRINT TABC14);TS$&' pour:'&MSE" "BAS à PRINT à CALL TPROBACN9,X,P1) 





PRINT TAB(10);'t = ';X @ PRINT TAB(10);'Proba.(de rejet. H1) = ;P1 @ PRINT 
DIM Q$156],W$[46] à W$='Veuillez REJETER HO : test SIGNIFICATIF (à 5%)! 
Q$='On ne peut pas rejeter HO : test NON SIGNIFICATIF (à 5%)! 

1F P1>.05 THEN PRINT TAB(10);Q$ ELSE PRINT TAB(10);WS$ 

PRINT @ DELAY 0,0 @ PRINT USING "80( 
END SUB 





RAR ADD 


Programme "VARTEST" 


2 
3 
5 
é 
70 
75 
80 
x 
100 
110 
120 
LE 
140 


358% 


8 


ê 


test d'égalité de 2 variances 

Michel Weil, 2a rue des jardins, 25000 BESANÇON 

DESTROY ALL OPTION BASE 1 @ PRINT @ PRINT USING "B0C1*1)" à PRINT 
CFLAG 0,3 à REAL P1,F & SEND LPD 

DIM VC2),1$021,T$,MS[8],NS(2)[8] & INTEGER I,A,B,M1,NC2) 
TS=NTEST d'EGALITE de 2 VARIANCES" à DELAY 0,0 

LINPUT "Nbre de déçi.2,121;1$ 

INPUT "Nom de L'analyse ? ";MS 

CALL MENU 

IF FLAG(3) THEN GOSUB "CLAVIER! ELSE GOSUB ‘FICHIER! 
F=CVCT)/VC2))"2 à SEND LPD 

CALL FPROBACNC1)-1,NC2)-1,F,P1) 

CALL RESULT(MS,TS,I$,F,P1) @ SEND LPD 

1F FLAGC3) THEN CALL SAUVECMS,2,NO),NSC),YC,)) 

END 








510 
52 
530 
550 
570 
580 
590 


S 


MFICHIER': 

ASSIGN #1 TO MS à READ #1;P 

IF P#2 THEN END ELSE READ #1;N,NS 

DIM Y(1,CNORM(N)) à READ #1;Y @ ASSIGN #1 TO * à M1=0 
FOR 1=1 TO 2 à MI=MI4NC1) & A=MI-N(1)+1 à B=M1 

CALL AFFMOYET(I,A,B,NSC),YC, D, VCI), 18) 

NEXT 1 @ RETURN 

Saisie sur clavier 





710 
72 
74 


8 


760 
7 
780 
790 
800 
810 


à 


"CLAVIER 

CREATE DATA M$ à ASSIGN #1 TO MS 

FOR 1=1 TO 2 à STD 

DISP "Nbre de mes niveau!"; à INPUT N(I) à DESTROY Y 

DISP "Nom du niveau";1; à INPUT NSCI) à PRINT NSCI) 8 DIM YCT,NC1)) 
DISP "Val.du niveau";1; à MAT INPUT Y MAT PRINT Y; 

Q$="Corr.à ce niveau?(0/N)" à CALL OUINON(QS,A) & ON A+1 GOTO 800,790 
DISP Changer YC1,2) 1" @ PAUSE 

PRINT #1;Y à A=1 à B=NCI) à CALL AFFMOYET(I,A,B,NSC), YC, ), VOL), 18) 
NEXT I 
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820 DESTROY Y à ASSIGN #1 TO * 

830 DIM YC1,CNORMCN)) 8 ASSIGN #1 TO MS 8 READ #1;Y @ ASSIGN #1 TO * à PURGE MS 
840 RETURN 

Affiche moyenne et écart-type du niveau i 





1010 SUB AFFMOYET(I,A,B,NSC),Y(,),V, 18) @ DELAY 2,.2 

1020 STAT H(1) & FOR K=A TO B @ ADD YC1,K) @ NEXT K 

1030 M=MEANC1) @ V=SDEV(1) & CLSTAT à IF NOT FLAGCO) THEN ‘FIN 

1040 STD à PRINT 1;"2 série:";B-A+1;"valeurs pour: ";NS(I) à FIX VAL(IS) 
1050 PRINT TAB(20);"moyenne = ";M 

1060 PRINT TAB(20);"écart-type = ";V 8 PRINT @ 'FIN': DELAY 0,0 

1070 END SUB 





Sauvegarde des données 





1510 SUB SAUVECMS,K,NO),NSC),YC,)) 

1520 Q$="Sauv.des données?(0/N)" & CALL OUINON(QS, 1) à ON 1#1 GOTO *FIN',1530 
1530 LINPUT "Nom de ce fichier?",MS;MS à CREATE DATA MS 

1540 ASSIGN #1 TO MS à PRINT #1;K,N,NS,Ÿ @ FIN: 

1550 END SUB 





Calcul La Fisher-proba 





1610 SUB FPROBACN,M,F,P) 

1620 DISP ‘Proba...! à DEF FNGCN,M,T)=T"CN/2-1)*CM+N*T)"C-CN+M)/2) 
1630 A=GAMMACCN+M)/2)*N7CN/2)*M°(M/2)/GAMMACN/2)/GAMMACM/2) 

1640 B=INTEGRAL(O,F, .0001, FNGCN,M, IVAR)) 

1650 P=A*B à P=1-P 

1660 END SUB 





Fonction réponse à (O/N),(C/F) 





1812 SUB OUINON(Q$,Q) 

1814 DISP Q$ à I=POS("NOFC",UPRCSCKEYWAITS[1,11))-1 @ 1F I<0 THEN 1814 
1816 Q=MOD(1,2) à END SUB 

Choix des options 





1852 SUB MENU 

1854 Q$="Clavier/Fichier (C/F)?" @ CALL OUINON(Q$,Q) à DISP FLAG(3,0) 
1856 W$='Impr. MOY-E.T. (0/N)2! @ CALL OUINON(WS,Q) à DISP FLAG(0,Q) 
1870 END SUB 





Affichage du t et de La probabilité 





1910 SUB RESULT(MS,T$,1$,F,P1) @ DELAY 2,.2 à FIX VAL(I$) 
1915 IF FLAG(2) THEN A$=-"(cas pairées)" ELSE A$="(cas non-pairées)" 


1920 PRINT à PRINT TAB(14);T$&' pour:'&M$ à PRINT 

1930 PRINT TAB(10);'F = ';F @ PRINT TAB(10);'Proba(rejet. H1/H0) = !;P1 à PRINT 
1940 DIM Q$156],W$146] à W$='Veuillez REJETER HO : test SIGNIFICATIF (à 5%)! 
1950 Q$='On ne peut PAS rejeter HO : test NON SIGNIFICATIF (à 5%)‘ 
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1960 
1970 
1980 


IF P1>.05 THEN PRINT TAB(10);Q$ ELSE PRINT TAB(10);w$ 
PRINT @ DELAY 0,0 @ PRINT USING "80('=1)" 
END SUB 


HR DR 


Programme "KI2TEST" 


20 
30 


5 
6 
70 
80 
Ü 
10 


86 


8 8 


Test du chi 2 

Michel Weil, 2a rue des jardins, 25000 BESANÇON 

DESTROY ALL @ OPTION BASE 1 @ STD à DELAY 0,0 à PRINT USING "78C1*1)0 
CFLAG 0,1,2,3,4 @ INTEGER L,C,I,J,K,D,N9,AS,NO à REAL X2,0,P à SEND LPD 
FLAG: O=impr.du fichier 

1: KI2 de L'obs.théo. 2: KI2 du tabl.de contingence 

3: saisie sur clavier 

&: il y a correction de continuité 

DIM LS[40] ,MS [8] ,0$ 1221 

LINPUT "Nbre de déçimales?","2n;1$ à IS=UPRCS(IS) 

INPUT "Nom de L'analyse ? ";MS 

CALL MENU ! Mode d'utilisation du PGM 

ON FLAG(3)+1 GOSUB ! FICHIER! , "CLAVIER  SEND LPD 

IF FLAG(1) THEN 'OBSTHEO2! ELSE 'CONTING2" 

donne Les effectifs calculés de chaque case du tabl. de contingence 









120 
134 


ê 


150 
160 
170 


190 


210 
220 
240 
250 
260 






280 
290 


"CONTING2': DIM ZCL,C),MCL,C),L1CL),C1(C) ! Li-col du tabl.de cont. 
CALL THEOCONT(L,C,L1(),C1C),N0,2(,),MC,)) @ N9=(L-13*(C-1) 

Si Les effectifs sont trés petits: méthode exacte de FISHER 

FOR J=1 TO L à FOR K=1 TO C 

IF N9=1 AND MCJ,K)<5 THEN CALL FISHER(Z(,),P,1$) à GOTO ‘FIN' 

MEXT K @ NEXT J 

si Les effectifs sont petits: correction de continuité: 

FOR J=1 TO L @ FOR K=1 TO C à A5=N9=1 AND M(J,K)<10 AND MCJ,K)>=5 

IF A5 THEN CALL CORECONTCNO,X2,L,C,L1(),C1C),2C,),MC,)) 

IF N9>1 AND MCJ,K)<10 AND MCJ,K)>=5 THEN CALL CORECON2(X2,L,C,2(,),MC,3) 
NEXT K @ NEXT J 

Si Les effectifs sont suffisants: 

FOR J=1 TO L @ FOR K=1 TO C 

IF MCJ,K)>=10 THEN CALL SUFFISANCX2,L,C,2(,),MC,)) 

NEXT K @ NEXT J & GOTO 'PROBA' ! Calcul Le X2 pour La répart.des 2 distrib. 





*OBSTHEO2': DIM X(C),Y(C) @ FOR 1=1 TO C @ X(13=Z(1,1) à Y(1)=Z(2,1) 
IF YC1)<5 THEN CALL INVALID(2,1) @ END 

IF YCI)>=5 AND YCI)<10 THEN YCI)=Y(1)+.5 @ SFLAG 4 

NEXT 1 


CALL CHI2CX2,N9,C,XC),YC)) 





370 





+PROBA': BEEP à LINPUT “Nbre de para.estimés?,'0';Q$ à D=VAL(Q$) à N9=N9-D 
CALL KI2PROBA(N9,X2,0) ! calcule La proba.de rejeter H1 

Affichage des résultats 

CALL RESULT(MS,1$,N9,X2,Q) à ‘FIN': SEND LPD à IF NOT FLAG(3) THEN END 
Sauvegarde des données 

DIM Z(L,C) 

CALL SAUVE(M$,L,C,N$C),2(,)) 

END 
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saisie sur fichier 














510 'FICH 

530 ASSIGN #1 TO M$ à READ #1;L,C à DIM NS(L) à READ #1;NS 
550 DIM Z(L,C) à READ #1;2Z Q ASSIGN #1 TO * @ IF NOT FLAG(O) 
560 FOR 1=1 TO L à PRINT NSCI) à FOR J=1 TO C @ PRINT Z(I,); 


570 NEXT 3j à PRINT @ NEXT I à RETURN 


ou sur clavier 





FCLAVIER 


710 
720 iF FLAG(1) THEN 'OBSTHEO' ELSE CONTING' 






CBSTHEO': INPUT “Nbre de c. Cbs-Théo?";C à 
740 DIM HS(2) à NS(1)= OBSERVE! à NS(2 HEORIQ' & GOTO ‘ENTREE! 









CONTING': INPUT "Nbre de niv.-facteur? 
770 DISP ‘Nbre de mes./niveau'; & INPUT C 
780 FOR 1=1 TO L à DISP "Nom du niveau’ 


;L à DIM NSCL) 





3 à INPUT N$(I) à NEXT ! 








10 ENTREE! : 


820 CREATE DATA MS Q ASSIGN #1 Ti 
TROY Z3D 





830 FOR 1=t TO L 4 D) M 2(1,C) @ PRINT NSCI 

840 DISP “Vai.du nivea *; @ MAT INPUT Z à MAT PRINT 2; 
50 GS=uCorr.à ce niveau?(0/N)" à CALL OUINON(QS,K) à CN K+1 GOT 
860 DISP “Changer 2(1,2) 1" & PAUSE 

00 PRINT #1;Z @ NEXT 1 à DESTROY Z & ASSICN #1 TO * 

- 2: matrice de toutes Les données 


EN #1 TO MS à READ 














Z{L,C) & ASSI 








- Sauvegarde des données 





sus s 
F NOT FLAG(3) 


G$="Sauv.des don 


AUVEGHS,L,C,NSC),2€,)) 
N tFINS 











CG$,0) à ON Q+1 GOTO FIN1,1540 
LINPUT "om de ce 


DATA HS @ ASSIG: 





SUB KIZPROBACH,X,0) 
1602 M2=N/2 à G=1 à MI=INT(M2) 

1603 IF N=M1*2 THEN GOTO 1607 

1604 IF THEN GOTO 1606 

1605 FOR 1=1 TO 2*M1-1 STEP 2 à G=G*1/2 à NEXT ! 
1606 G=G*£OR(PI) à GOTO 1609 
1607 IF N=2 THEN GOTO 1609 
1608 FCR 1=1 TO M1-1 & G=G*I à KEXT I! 
1609 ASEXP(-X/2) & F=(X/2)°M2 8 F=F*A/CM 

















1610 FB8=F8*X/(N+1) à P=P+F8 à 1F F8*F>.00000001 THEN 1=1+2 à COTO 1610 
1611 Q=1-(P*F) à IF Q=1 THEN Q=.0000000001 
1612 END SUB 





Affichage des résultats 





1710 £JB RESULT(H$,1$,N9,X2,0) à DELAY 2,.2 @ T$='TEST du CHI2' 

1719 1F FLAG(1) THEN A$="Comparaison de 2 observations" ELSE A$="Tableau de contingences! 
1720 PRINT @ PRINT TAB(15);1$@! pour: ‘MS; à PRINT " - MEAS à PRINT 9 STD 
1730 PRINT N9;'degrés de Liberté! à FIX VAL(IS) 

1740 PRINT TAB(23);'chi2 = !;x2 

1750 PRINT TAB(23);'probe= !;0 

1760 PRINT  AS='SIGNIGICATIF à 52° 

1770 1F Q9>.05 THEN PRINT TAB(25); ‘Test NON "BAS ELSE PRINT TAB(25);'Test '8A$ 
1775 PRINT à IF FLAG(4) THEN PRINT "(*) avec La correction de continuité" 

1780 DELAY 0,0 @ PRINT USING #78ç1=1)" 

1790 END SUB 





Fonction réponse à (O/N),(C/F) 





1812 SUB OUINON(AS, 0) 

1814 DISP QS à I=POS(MNOFC" ,UPRES(KEYHAITS(1,11))-1 & IF I<0 THEN 1814 
1816 Q=MOD(1,2) à EXD SUB 

Choix des cptions 





1852 SUB MENU 

1854 compar.2 répart (O/N)?" 
1856 un tabl.de cont (O/N)2" 
1858 Clavier/Fichier 
1860 pr.du fich 
1862 CALL OUINON(AS,0) 
1864 CALL OUINONCHS,C) 
1866 CALL CUINONCES,0) 
1868 CALL OUINONCRS,0) 
1870 END SUB 








® © 


DISP FLAG(2,0) 
DISP FLAG(3,0) 
DISP FLAGCO,0) 





© © © & 9 
& 





Donne Les effectifs calculés du tableau ce cont. 









ECCONT(L,C,L1C),C1C),H,2€,3,MC,)) 

FOR J=1 TO L 8 FOR K=1 TO C à L1(J)=L1(J)+2CJ,K 
NEN+ZCJ,K) & CICK)=C1(K)+ZCJ,K) à NEXT K à NEXT 

FOR J=1 TO L à FOR K=1 TO C 8 MCJ,K)=L1(J)"C1(K)/N 8 K 
5 END SUB 











calcul X2 pour Le tableau 2x2 effectifs petits 





3581 SUB CORECONTCN,X,L,C,L1(),C10),2C,),MC,)) 
3582 FOR J=1 TO L à FOR K=1 TO C 

3583 IF MCJ,K)<5 THEN FIN! 

3584 REXT K à NEXT J 8 SFLAG 4 





*ABS(Z(1,13*2(2,2)-202,13*201,2))"2/(L1(D*L102)*C1013*C102) 
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3587 END SUB 





-+ Caicule Le X2 pour Le tableau LxC (LXC>4) Lorsque petits effectifs 





3591 SUB CORECON2(X,L,C,2C,3,MC,)) 

3592 FOR J=1 TO L à FOR K=1 TO C 

3593 1F 2CJ,K)<é AND MCJ,K) THEN CALL INVALID(U,K) 
3594 +{ZCJ,K)-MCJ,K3-.5)"2/MCJ,K) à SFLAG 4 








3596 NEXT K à KEXT J 
3597 END SUB 





- Calcule Le X2 pour Le tableau de cont. de deux répartitions 





3601 SUB SUFFISAN(X,L,C,ZC, ),MC,)) 
3602 1F X@0 THEN ‘FIN 

3603 FOR‘J=1 TO L à FOR K=1 TO C 
3604 X=X+(ZCJ,K3-MCJ,K))"2/MCJ,K) 
3605 NEXT K 3 NEXT J 9 ‘FIN': 
3606 END SUB 






répartition de 2 distributioi 





fectifs suffisants, ou peti 








3612 X2=0 & N9=N-1 
3613 FOR 1=1 TO 
3$15 END SUB 











VALCIS) 





1,2) & C=2(2,1) @ D=2(2,2) 
N AÎ=A à B1=5 à A=B1 à B=A1 à C 





C=C+S à B=8+J 
RI=FACT(A+B) à R2=FACT(C+D) @ R3=FACT(A+C) 
=FACT(A+B+C+D) à R6=FACT(A) 3 R7=FACT 
R4/CRS*RE*R7* 














D-J 





1F 2*P>.05 THEN PRINT TAB(20);"test NON 
END SUB 












- Si Les conditions de validités du test sont non respectées 





3701 SUB INVALID(J,K) @ PRINT 
3702 PRINT " Les effectifs de La classe n°: 





347", ";K;") sont insuff 








3703 PRINT " pour utiliser Le test du CHI 


3704 





TAB(20);"Veuiilez REGROUPI vins) La donnée: (" 
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3705 DISP y-a-un problèmell" à SEND LPD & PAUSE 


3706 


END SUB 


AAA HAN EE ON 


Programme MMA:MWILC" 


3 
4 
50 
7 
& 
9 
9: 
98 
100 
110 
120 
130 
140 


8 6 


883 


170 
180 


210 






Test de MANN et WHITNEY-WILCOXON, non paramètrique 

Michel Weil, 2a rue des jardins, 25000 BESANCON 

testant La Loi de 2 populations 

DESTROY ALL 8 OPTION BASE 1 à DELAY 0,0 @ PRINT USING "78C1*13" 
CFLAG 0,1,2,9 @ REAL E,V à SEND LPD 

DIM IS(2],NS(2)(81,MS$C8] à INTEGER 1,J,D6,M1,A,B,NC2), NI 
LINPUT "Nbre de décimales? 
INPUT ‘Non de L'anaiyse ? “;MS 

CALL MENU 

ON FLAG(3)+1 GOSUB ‘FICHIER', CLAVIER! à DIM XCNC1)),YCNC2)) 

SEND LPD 6 

IF NCTDANC2) THEN SFLAG 1 ELSE CALL NPOUP 

FOR 1=1 TO NC1)  XC1)=2(1,1) @ NEXT 1 

FOR I=1 TO NC2) à YCI)=ZC1,N(1)+1) 8 NEXT 1 @ DESTROY 2 

IF FLAGC1) THEN DIM XSCNC1))115],YSCN(2)) 15] ,DSCCNORMCN))[15] ELSE DIM DCNC1)) 
IF FLAG(1) AND MINCNCT),NC2))<4 THEN DISP "Pas assez de données!" 8 END 
regroupe Les vecteurs Xi et Yi dans un même vecteur (M et W) 

















ou calcule Les différences (Wil.) et Les regroupe s un même vecteur 

D6=FLAG(1) & A5S='REGROUPI' 3 A6S=REGROUP2! 

IF D6 THEN CALL A5SCNC),XC),YC),XSC),YSC),DSC)) ELSE CALL A6SCNC),XC),YC),DC),N4,D$C3) 
range Les valeurs par ordre croissant, 

et départage Les exaequo par . au sort 

DISP MÇa trie.." 8 CALL TRICNOD,N4,DSC),V,E,T,W) 

catc. La somme des rangs des valeurs (MB), 











ou des diff. >=0 et négatives (Wil.) 
IF Dé THEN CALL RANGCNC),N6,DSC),V,E,W) ELSE CALL DIFFRANG(N4,NC),D$C),T,V,E) 
calcule La probabilité pour n(1)>9 et n(2)>9 (M et W) 

IF FLAG(1) AND N4>19 THEN CALL GRANDEFF(E,RS) 

IF FLAG(2) AND N(13>9 AND N(2)>9 Ti CALL GRANDEFF(E,R 
IF FLAG(1) AND (NC1)<10 AND N(23<10) EN CALL PETITEFF(NC),NG,U,U,T,RS) 
IF FLAG(2) AND Né<20 THEN AG 9 & CALL PETI CNO,NE,U,W,T,RS) 
Affichage des résultats du test 

CALL RESULT(MS,IS,NO,NG,U,U,T,E,RS) à 















END LPD 


IF FLAG(3) THEN CALL SAUVECHS,RC),K5,XO),YC)) 
EXD 


saisie sur 








510 
530 
540 
550 
560 
570 
58 
590 
600 


É 


"FICHIER! 
ASSIGN #1 TO M$ à READ #1;P 

IF P#2 THEN END ELSE READ #1;N 
DIM Z(1,CNORM(N)) & READ #1;Z @ ASSIGN #1 TO * 

M1=0 à IF NOT FLAG(O) THEN RETURN 

FOR 1=1 TO 2 à M1=MI+N(I) @ A=M1-N(1)+1 à B=M1 

PRINT NS(I) à STD à FOR K=A TO B @ PRINT Z(1,K); à NEXT K @ PRINT 
CALL AFFMOYET(I,A,B,NSC),2(,),15) 

NEXT 1 9 RETURN 
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ou sur clavier 





710 CLAVIER! : 
730 CREATE DATA MS Q ASSIGN #1 TO MS 
780 FOR 1=1 TO 2 à STD 
750 DISP "Nbre de mes.":1;"#niveautt; à INPUT N(I) à DESTROY Z 
760 DISP “Nom du niveau";1; à INPUT N$(1) @ PRINT N$CI) @ DIM ZC1,NC1)) 
770 DISP "Val.du niveau";1; à MAT INPUT Z à MAT PRINT 2; 
780 Q$="Corr.à ce niveau?(0/N)" à CALL OUINON(OS,A) à ON A+1 GOTO 00,790 
790 DISP "Changer Z(1,2) !" @ PAUSE 
800 PRINT #1;Z à A=1 à B=N(I) à CALL AFFMOYET(I,A,B,NS$(),2€,),15) 
810 NEXT ! 
820 DESTROY Z à ASSIGN #1 TO * 
E30 DIM Z(1,CNORM(N)) à ASSICN #1 TO HS à READ 
840 RETURN 

- Affiche moyenne et écart-type du niveau i 





8 6 





* à PURGE MS 








1010 SUB ‘AFFMOYET(I,A,B,N5C),2C,),15$) @ DELAY 2,.2 


1020 STAT H(1) à FOR K=A TO B @ ADD Z(1,K) à MEXT K 
1030 M=MEANC1) & V=SDEV(1) à CESTAT 

1060 STD à PRINT 1;#2 série:";B-A+1;"valeurs pour: 
1050 PRINT TAB(20); "moyenne = ";M 

1060 PRINT TAB(20);"écart-type = ";V à PRINT à DELAY 0,0 à STD 
1070 END SUB 





NSCI) à FIX VALCIS$) 








10 SUB SAUVECMS,KC),NSC),XC),YO)) 

20 Sauv.des données?(0/N)" à CALL OUINON(OS,K) à ON K#i GOTO !FIN!,1530 
PUT "Nom de ce f 
ATE DATA H$ 8 ASSIGN #1 











£U8 











VALCIS) 





1730 IF NC1)<10 AND N(2)<10 THEN PRINT TAB(25); 
1735 IF N(1)>9 AND N(2)>9 THEN GOSUB ‘ET! 
1740 GoTo !s! 











1785 "F2: PRINT TAB(16);"TEST T de WILCOXON pour: "&MS 
1750 PRINT TAB(25) = ";T & NO=N4-10 @ IF NO>9 THEN GOSUB ‘ET! 









*S': IF RSC1,11#' ! THEN PRINT TAB(25);'SIGNIFICATIF (à 5%)! ELSE PRINT TAB(24);RS 
)" @ GOTO ‘FIN' 





1760 DELAY 0,0 à PRINT à PRINT USING "78(' 
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1765 ‘ET': PRINT TAB(25);"écart-réduit = ";E @ RETURN à ‘FIN': 
1800 END SUB 





Fonction réponse à (O/N),(C/F) 





1812 SUB OUINON(QS,0) 
1814 DISP Q$ à I=POS(MNOFC",UPRCSÇ(KEYWAITS[1,11))-1 @ IF I<0 THEN 1814 
1816 Q=MOD(1,2) à END SUB 

- Choix des options 





1852 SUB MENU 

1854 QS="Clavier/Fichier (C/F)?" à CALL OUINON(QS,Q) à DISP FLAG(3,0) 
1855 ON FLAG(3)+1 GOTO 1856,1870 

1856 W$='"Impr. MOY-E.T. (O/N)?! à CALL OUINON(WS,Q) 9 DISP FLAG(O,0) 
1870 END SUB 





Choix entre NPairées OU Pairées 





4010 SUB NPOUP 

4020 INPUT “Non-Pairées/Pairées?", NP! ;U$ @ US=UPRCS(US) 
4030 IF US='NP' THEN SFLAG 1 ELSE SFLAG 2 

4040 END SUB 





identifie Les variables par X ou Y et Les regroupe dans un même vecteur 





4101 SUB REGROUPICNC),XC,YC),X$0),Y$C),D50)) 
4102 FOR 1=1 TO NC1) à XSCI)=STRSCXCI)DE"X" 
4103 D$CI)=X$C1) à NEXT ! 

4104 FOR 1=1 TO NC2) à YSCI)=STRSCYCI) )&MY" 
4105 DSCI+N(1))=Y$CI) à NEXT I 

4106 END SUB 





calcule Les différences et Les regroupe dans un même vecteur (Wilc.) 





4111 SUB REGROUP2CN(),XC),YC),DO),N4,D5C)) 

4112 FOR 1=1 TO N(1) à DCI)=XC1)-YC1) à P=1-Q 

4115 IF DC1)=0 THEN Q=0+1 

4116 IF D(I)>0 THEN DS(P)=STRS(DCI ))&"P" 

4117 IF DCI)<0 THEN D(I)=ABS(D(1)) à DS(P)=STRS(D(I ) DRM 
4118 NEXT I @ N4=N(1)-Q 

4119 END SUB 





Range Les éléments du vecteurs par valeur croissante (tri Shell) 
et départage Les exaequo par tirage au sort 






SUB TRICNO),N4,DSC),V,E,T,W) @ DISP ‘Ça trie... à IF FLAG(1) THEN N&=N(1)#NC2) 
4123 J6=NG à 'J6': J6=INT(J6/2) à IF Jé=0 THEN ‘FIN! 

4124 J2=N6-J6 à FOR J=1 TO J2 à I=J 9 'l': J3=1+J6 

4125 IF VAL(DS(53))>VAL(DSC1)) THEN ‘9! 
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4126 IF VAL(DS(J3))<VAL(DS(1)) THEN CALL SWAP(1,J3,D5()) 
4127 IF VAL(DS(J3))=VAL(DS(I)) THEN CALL EXAEQUO(I,J3,D$C)) 
4128 1=1-J6 à IF 1>0 THEN ‘1! 





4129 ‘J': NEXT J à GOTO ‘J6! 








"FIN': BEEP à DISP (TRI TERMINE' 
4133 END SUB : 





fonction SWAP 





4135 SUB SWAP(I,J,D$()) à S$=D$CI1) à D$(1)=D$(J) à DS(J 
4136 END SUB 





Départage Les exaequo 





4138 SUB EXAEQUO(I,J,D$()) à RANDOMIZE à IF RND<.5 THEN CALL SWAP(I,J,D$()) 
4139 END SUB 





calcule La somme des rangs des X, sa variance et son écart-réduit 





4141 SUB SOMRANG(N(),N4,DSC),V,E,W) 


4142 M=0 & FOR 1=1 TO N4 
4143 IF DSCI)[LEN(DS(1))] 
4144 NEXT 1 





XU THEN W=u+I 


4145 VENCHIENC2)*CN4+13/12 
4146 E=ABS(W-(NCTI*CN4+1)/2))/S0RÇCV) 
4167 END SUB 





Calcule La somme des rangs des diff. pos. et nég., La variance et L'écart-réduit 





4151 SUB DIFFRANG(N4,NC),DSC),T,V,E) 
4153 FOR I=1 TO Né 

4154 IF D$(I)[LEN(DS(1)) 
4155 IF D$S(I)(LEN(DSCI)) 
4156 NEXT I! 

4157 T=MINCM,P) 


P' THEN P=P4I 
MI THEN MeM+I 





4159 VENCT)*CNC1)+1)*CNC12*2+1)/24 
4160 E=ABSCT-(NC1)*(NC13+13/4))/S0RÇV) 
4161 END SUB 





Calcule La prob. par comparaison avec Les données de La table de l'écart-réduit 





4181 SUB GRANDEFF(E,R$) 
4182 DIM E1(6),R1(6) à READ E1C),R1C) 





4183 DATA 3.29,2.576,2.326,2.17,2.054,1.96 
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4184 DATA .001,.01,.02,.03,.04,.05 






ETC1) THEN Ri="p ! 


SIGNIFICATIF à S%' à 'FIN': 


4188 END SUB 









Donne La preba. pour Le test U si Les effectifs sont pet 








4192 SUB PETITEFF(NC),N6,U,W,T,RS) 
4193 iF FLAG(?) THEN WILCOX! 





4202 DIM R5(9,24),R1€9,24) 

4204 NC1)/2)*(N013+1) à US=NCT)*NC2)-U 

4205 IF US<U THEN U=U5 

4206 FOR 1=4 TO 9 

4207 FOR J=4 TO 23 

4208 RESTORE 4250 à READ R5C1,J),R1CI,J) 

4209 NEXT J 

4210 KEXT ! 

4211 IF NCTD<EN(2) AND U<=R1CNCT),NC2)-NC1)+4) THEN RS: 
4212 1F N(2)<N(1) AND U<=R1CN(2),NCTI-N(2)+4) THEN RS=: 
4213 IF NC1)<=NC2) AND U<=R5(NCT),NC2)-NC1)+4) THEN RS: 
4214 IF NC(2)<N(1) AND U<=RSCN(2),HC1)-NC2)+6) N RS 
4215 RS=U NON SIGKIFICATIF (à 5%)" à GOTO FIN! 








-01® à GOTO ‘FIN! 
01" à GOTO !FIN' 
M à GOTO ‘FIN! 


2 GOTO ‘FIN! 














Donne La prob. pour Le test de Wilcoxon si Les effectifs sont petits 





4220 'WILCOX': DIM R5(20),R1(29) 
FOR 1<6 TO 20 

4225 READ RSCI),R1CI) 
T: 

T 






< ÿ RS=tp <= .01 
<=RS(N4) THEN RS=Mp <= .0; 


M NON SIGNIFICATIF (à 


8 co 
GOTC ‘FIN! 


8 GOTO ‘FIN! 


TD 













,27,60,29,255,255, 
,15,9,17,11,19,13,22,15,26,17,26,18 
4259 DATA 38,28,41,30,43,22,45,34,255,255,255, : 
4260 DATA 17,11,20,13,23,16,26,18,28,20,31,22,34,26,37,27,39,29,42,31, 
















4262 FIN‘: END SUB 


RH I IDR DID D AAA 
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Programme "CORSPEAR" 


w 
5 


a 
s 


& 
8 


110 


Test de CORR. de SPEARMANN, non para. 

Michel Weil, 2a rue des jardins, 25000 BESANÇON 

testant L'indépendance entre 2 var. quantitatives 

DESTROY ALL 8 OPTION BASE 1 à STD à DELAY 0,0 à PRINT USING "B0C*1)" 
CFLAG 0,1,2,3 à DIM TS(35],1$(2],NS(2)[8] 8 SEND LPD 

INTEGER I,J,P,M1,A,B,N6,N9,NC2) 9 REAL R,X5,Q 

T$="Corrélation des rangs de SPEARMANN" à DISP TS 

LINPUT "Nbre de déçimales?","2";1$ 

INPUT "Nom de L'analyse ? “;M$ 

CALL MENU 

IF FLAG(3) THEN GOSUB CLAVIER! ELSE GOSUB *FICHIER' 

N9=NC1)+9 8 DIM XCH9),YCN9),XSCN9) [151 ,YSCN9) [151 ,ZSCNC1)) [15] 
FOR 1=10 TO N(1)+9 8 XC1=2(1,1-9) 8 YCID=Z(1,1#N(1)-9) à NEXT ! 
STD à SEND LPD 

CALL ALPHANUM(N9,XC),YC),X$0),YSC2) 

Range XSi etYSi par valeurs croissantes de Xi et Yi 

SFLAG 1 à CALL RANGECN9,2Z5),X5C),Y$()) à DISP "concatène..." 

-. Le rang des valeurs classées à Xi et Yi 

CALL CONCATOCN9,XSC),YS$C)) à DISP “reclasse..." 

-. Les XSi et YSi en fct de L'ordre introduction des données 
SFLAG 2 à CALL RANGECN9,25(),X5C),YSC)) à DISP “val--->rang" 
remplace Les valeurs par Leur rang 

CALL VALRANGCN9,XC),YC),XS0),YSC)) à DISP "rt 

calcule Le c. de S. et sa transf. distribuée suivant une L. de Student 
CALL COESPEARC(N9,NC1),XC),YO),R,N&,X5) à DISP “proba..." 
calcule La probabilité 

IF N4>8 THEN CALL TPROBACN4,X5,0) 

donne Les valeurs calculées de r si Les effectifs sont petits 
IF Né<=8 THEN CALL PROBPETI(R,N9,0) 

CALL RESULT(TS,MS,1S,N4,R,X5,0) à SEND LPD à IF NOT FLAG(3) THEN END 
CALL SAUVECHS,NC),NSC),2€,)) 

EXD 











saisie sur fichier 





"FICHIER: 

ASSIGN #1 TO M$ à READ #1;P 

IF P#2 THEN END ELSE READ #1;NC),N5C) 

DIM Z(1,CNORM(N)) à READ #1;Z à ASSIGN #1 TO * 

M1=0 @ IF NOT FLAG(O) THEN RETURN 

FOR 1=1 TO 2 à MI=MI+N(I) à A=M1-NC1)+1 à B=M1 

PRINT N$(1) à STD à FOR K=A TO B à PRINT Z(1,K); @ NEXT K @ PRINT 
CALL AFFMOYET(I,A,B,N$(),2C,),18) 

NEXT 1 @ RETURN 


ou sur clavier 





710 
73! 
740 
750 
760 
TT 


S 


à 


"CLAVIER! 

CREATE DATA M$ à ASSIGN #1 TO M$ 

INPUT 'nbre de mes.couplées?';N(1) à N(2)=N(1) 

FOR 1=1 TO 2 à STD à DESTROY Z 

DISP “Nom du niveau";1; à INPUT N$C1) @ PRINT NS(1) à DIM ZC1,NC1)) 
DISP “Val.du niveau";1; à MAT INPUT Z à MAT PRINT Z; 
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780 Q$="Corr.à ce niveau?(0/N)" à CALL OUINON(QS,A) à ON A+1 GOTO 890,799 

790 DISP "Changer Z(1,2) 1" à PAUSE 

800 PRINT #1;Z à IF NOT FLAG(O) THEN 810 

805 A=1 9 B=N(I) à CALL AFFMOYET(I,A,B,N$C),Z(,),15) 

810 NEXT 1! 

820 DESTROY Z à ASSIGN #1 TO * 

Z: vecteur de toutes Les données e 

840 DIM Z(1,CNORM(N)) à ASSIGN #1 TO MS à READ #1;Z @ ASSICN #1 TO * Q PURGE MS 
850 RETURN 

Affiche moyenne et écart-type du niveau i 





1010 SUB AFFMOYET(I,A,B,N$C),2(,),1$) à DELAY 2,.2 

1020 STAT H(1) à FOR K=A TO B @ ADD Z(1,K) @ NEXT K 

1030 M=MEAN(1) à V=SDEV(1) à CLSTAT 

1040 STD à PRINT !;"2 série:";B-A+1;"valeurs pour: ":N$(I1) à FIX VALCIS) 





1050 PRINT TAB(20); "moyenne = “;M 
1060 PRINT TAB(20);Mécart-type = “;V à PRINT à DELAY 0,0 
1070 END SUB 





Sauvegarde des données 





1510 SUB SAUVECHS,NC),N$C),ZC, )) 

1520 Q$="Sauv.des données?(0/N)# & CALL OUINON(QS,I) à ON 1+1 GOTO ?FiN',1530 
1530 LINPUT "Nom de ce fichier?",MS;MS à CREATE DATA MS 

1540 ASSIGN #1 TO MS à PRINT #1;2,N,NS,Z & ASSIGN #1 TO * à FIN‘: 

1550 END SUB 





Calcule La Student-proba 





1601 SUB TPROBACN9,X,0) 
1602 RADIANS à X1=X/SORÇN9) à TATANCX1) 
1603 IF N9=1 THEN B=T*2/PI à GOTO ‘A' 

1604 T9=COS(T)"2 à N8=2*INT(N9/2) à IF NI 
1605 B=COS(T) à T9=8*8 à V=B à IF N9=3 Ti 
1606 FOR 1=2 TO N9-3 STEP 2 à V=V*T9*1/(1+1) à 


9 THEN ‘B' 





B+V @ NEXT 1 









*SINC(T) @ B=(B+T)*2/PI à GOTO 'A' 





1608 ‘B': T9=COS(T)"2 à B=1 à V=1 à IF N9=2 THEN 'D' 
1609 FOR 1=1 TO N9-3 STEP 2 @ V=V*T9*1/(1+1) & B=B+V @ NEXT I 





1610 









-(C1+8)/2))*2 
1612 END SUB 





Affichage des résultats 





1710 SUB RESULT(T$,MS,1S,N,R,X,Q) à DELAY 2,.2 & FIX VAL(IS) 
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1720 PRINT à PRINT T$&' pour: &MS à PRINT 

1730 PRINT TAB(10);"Coefficient de SPEARMANN = "5R 
1740 1F N>8 THEN PRINT TAB(19);ût = M:X 

1750 PRINT TAB(10);"propa < 
1760 DIM Q$(551,WS165] à WS= Veuillez REJETER HO (à 5%):test SICNIFICATIF' 
1770 G$=tOn ne peut pas rejeter HO (à 5%):test NON SIGNIFICATIF' 

1780 PRINT @ IF Q>.05 THEN PRINT TAB(12);QS ELSE PRINT TAB(10);45 

1790 PRINT à DELAY 0,0 & PRINT USING "80" 
1800 END SUB 




















Fonction réponse à (O/N),(C/F) 





UB CUINON(QS,0) 
ISP G$ à I=POS("NOFC",UPRCS(KEYWAITS(1,11))-1 à IF 1<0 T 
1816 a=MoD(1,2) à END SUB 

- Choix des options 





S 
1814 D 





SUB MENU z 
1854 Q$="Clavier/Fichier (C/F)?" & CALL OUINON(QS,Q) à DISP FLAG(3,0) 
1856 W$=tImpr. MOY-E.T. (O/N)?' à CALL OUINON(US,Q) à DISP FLAG(O,0) 
1870 END SU8 





+ Alpha-numérise 





2001 SUB ALPHANUMCN,XC),YC),XSC3,YSC)) 

2002 FOR i=10 TO N 

2003 XSCI)=STRSCX(I))ESTRSCI) 8 YSCID=STRSCYCI)DESTRSCI) 
2004 NEXT 1! 

2005 END SUB 





ss-PGM de passage des valeurs pour Le programme de classement 





2102 SUB RANGECN,Z5(),X8C),Y5C)) 

2104 FOR 1=10 TO N à Z5(1-9)=XSC1) 
2106 FOR 1=10 T9 N à X$(1)=Z8(1-9) 
2108 FOR 1=19 TO N & ZS(1-9)=YS(1) 
2110 FOR 1=10 TO N à YSCI)=ZS(1-9) 
2112 


à CALL TRIS(N-9,Z5()) 





à CALL TRIS(N-9,25()) 












e Les valeurs par crdre croissant et 


--et départage Les exaequo par tirage au sort 








2204 SUB TRIS(N,25()) à DISP “Ça trie...Shell" 

2206 J6=N à 'Jé': J6=INT(J6/2) & IF J6=0 THEN ‘FIN! 

2208 J2=N-J6 à FOR J=1 TO J2 à 1=J à 'l': J3=1+J6 

2210 AS=VAL(Z$(J3)[1,LENCZS(J3))-21) 

2212 A6=VAL(ZS(I)[1,LENCZS(1))-21) 

2214 IF FLAG(1) AND AS<A6 THEN CALL SUAP(I,J3,Z5()) 

2216 IF FLAG(1) AND A5=A6 THEN CALL EXAEQUO(I,J3,25()) à SFLAG 3 à GOTO !J' 
2218 A7=VAL(ZS(J3) [LEN(Z5(J3))-11) 

2220 AB=VAL(ZÈCI)[LENCZS(1))-11) 
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2222 1F FLAG(2) AND A7<A8 THEN CALL SWAP(1,J3,2$()) 
2224 IF FLAG(2) AND A7=A8 THEN CALL EXAEQUO(I,J3,Z$()) & SFLAG 3 à GOTO ‘J' 
2226 1=1-J6 à IF 1>0 THEN ‘I! 





2228 ‘J': NEXT J à GOTO 'Jé! 





2230 'FIN': DISP ‘tri terminé! à END SUB 
+ fonction SWAP 








2234 SUB SWAP(I,J,D$C)) à S$=D$(1) 8 D$C1)=D$CJ) à DSCJ)=SS à END SUB 
- départage Les exaequo 





2238 SUB EXAEQUO(I,J,D$()) à RANDOMIZE à IF RND<.5 THEN CALL SWAP(I,J,D$C)) 
2240 END SUB 





concatène Le rang des valeurs classées à X$i et Y$ 








2302 SUB CONCATOCN,XS(),YSC)) 
2304 FOR 1=10 TO N 

2306 XSC(1)=STRSCI)EXS(I) 
2308 YSCI)=STRSCI)EYSCI) 
2310 NEXT I 

2312 END SUB 





remplace Les valeurs par Leur rang 





2352 SUB VALRANG(N,XC),YCO),X8C),YSC)) 

2354 FOR 1=10 TO N 

2356 X(1)=VALC(XSC1)(1,2]) 

2358 YCI)=VAL(YS(1) 01,21) 

2360 NEXT ! - 
2362 END SUB 





caicule Le coeff. de Spearman et sa transformée distribuée suivant une Loi de Student 





2402 SUB COESPEAR 





1XO YO,R,N4,X5) 


2404 FOR 1=10 TO N9 à K=K+(X(1)-Y(1))"2 à NEXT 1! 
2406 1F K=0 THEN R=1 à X5=MAXREAL à GOTO ‘FIN! 
2408 R=1-(6*K/CN*CN°2-1))) 

2410 N4=N9-11 

2412 X5=R*SORCN4)/SORCI-R"2) Q 'FIN': 

2414 END SUB 








calcule La proba. si l'effectif est petit en comparant r 
+. aux données des tables pour Les risques .05 et .01 





2454 SUB PROBPETI(R,N,09) 
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2456 DATA 1,1,1,.89,.93,.79,.83,.74,.83,.68, .79,.65 


2458 FOR 1=5 TO 10 
2460 READ R1CI),R5CI) 

2462 NEXT 1! 

2464 IF R>=R1(N-9) THEN Q9=.01 à GOTO *FIN' 
2466 1F R>=R5(N-9) THEN Q9=.05 à GOTO ‘FIN! 
2468 Q9=.5 à 'FIN': 

2470 END SUB 








RER DR A RO 


Programme ‘KRUSWALL" 


Test de Kruskall et Wallis, test sur La Liaison éventuelle 

entre un caractère quantitatif et un caract. qualitatif à P classes. 
Michel Weil, 2a rue des jardins, 25000 BESANÇON 

DESTROY ALL @ OPTION BASE 1 @ DELAY 0,0 @ PRINT USING “80(1=1)" 
CFLAG 0,3 à SEND LPD 

30 DIM T$(26],1$[2] à INTEGER 1,J,P,NO @ REAL H,T,Q 

50 T$="Test de KRUSKALL et WALLIS" à DISP T$ 

60 LINPUT "Nbre de déçimales?","2";1$ à IS=UPRCS(IS) 

70 INPUT "Nom de l'analyse ? ";k 
80 CALL MENU 

85 ON FLAG(3)+1 GOSUB ‘FICHIER! ,'CLAVIER' à SEND LPD à STD 

90 NO=CNORM(N) à DIM YSCNO) à INTEGER RCNO),R9CP) 

Concatène chaque valeur avec Le n° de classe correspondant 

110 CALL CONCANO(P,NC),YC,),Y5C)) 

Range Les valeurs !identifiées' par ordre croissant 

130 CALL RANGECNO,YS()) 

Calcuie Le rang des valeurs de chaque classe, 

en attribuant un rang moyen aux valeurs exaequo 

160 CALL RANGVAL(NO,YSC),RC),T) 

Calcule La somme des rangs des valeurs de chaque ciasse 

180 CALL SOMRANG2(P,R9C),N0,YS$C),RC),NCD,H,T) 

Si Les eff. sont insuffisants: 

200 IF NO/P<5 THEN 210 ELSE 230 

210 PRINT Les effectifs insuffisants ne permettent pas l'utilisation de ce PGM" 
220 PRINT & PRINT TA8(15);"Veuillez consulter une table de H." à END 

230 CALL KWPROBA(P,H,Q) ! Sinon calcule La proba.. 

250 CALL RESULT(TS,MS,1S,P,H,Q) à SEND LPD 

260 IF FLAG(3) THEN CALL SAUVECMS,P,NC),NSC),Y(,)) ! Sauvegarde sur fichier 

270 END 


2 
2: 


s8ùs 





8% 





saisie sur fichier 





510 ‘FICHIER 
530 ASSIGN #1 TO M$ Q READ #1;P 


8 


540 INTEGER N(P) à DIM N$(P)[8] @ READ #1;N,N$ 

550 DIM Y(1,CNORM(N)) à READ #1;Y à ASSIGN #1 TO * 

560 M1=0 à IF NOT FLAG(O) THEN RETURN 

570 FOR I=1 TO P à MI=M1+N(1) à A=MI-NC1)+1 à B=M1 

580 PRINT NS(I) à STD à FOR K=A TO B à PRINT Y(1,K); à NEXT K à PRINT 
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590 CALL AFFMOYET(I,A,B,NS(),Y(,),1$) @ NEXT I @ RETURN 
600 NEXT 1 à RETURN 


ou sur clavier 





710 'CLAVIER': F 

715 INPUT Combien de facteurs?';P 

720 INTEGER N(P) 3 DIM NSÇP) [8] 

730 CREATE DATA M$ à ASSIGN #1 TO M$ 

740 FOR 1=1 TO P à STD 

750 DISP "Nbre de mes.";1;"?niveaul; @ INPUT N(I) à DESTROY Y 


760 DISP "Nom du niveau“;1; @ INPUT N$(1) @ PRINT N$CI) @ DIM Y(1,NC1)) 
770 DISP "Val.du niveau";1; @ MAT INPUT Y @ MAT PRINT Y; 

780 Q$="Corr.à ce niveau?(0/N)" à CALL OUINON(QS,A) @ ON A+1 GOTO 800,790 
790 DISP ‘Changer Y(1,2) 1" @ PAUSE 

800 PRINT #1;Y @ A=1 à B=N(1) à CALL AFFMOYET(I,A,B,NS(),Y(,),15) 

810 NEXT 1 

830 DESTROY Y à ASSIGN #1 TO * 





840 DIM YC1,CNORMCN)) à ASSIGN #1 TO MS à READ #1;Y à ASSIGN #1 TO * à PURGE HS 
850 RETURN . 
Affiche moyenne et écart-type du niveau i 





1010 SUB AFFMOYET(I,A,B,NSC),YC,),15) @ DELAY 2,.2 

1020 STAT H(1) à FOR K=A TO B à ADD YC1,K) @ NEXT K 

1030 M=MEAN(1) & V=SDEV(1) à CLSTAT 

1040 PRINT 1;"2 série:";B-A#1;"valeurs pour: ";NSCI) à FIX VAL(IS) 
1050 PRINT TAB(20);"moyenne = ";M 

1060 PRINT TAB(20);"écart-type = “;V @ DELAY 0,0 à STD à PRINT 
1070 END SUB 














Sauvegarde des données 





1510 SUB SAUVE(MS,P,NC),N$C),YC,)) 

1520 G$="Sauv.des données?(0/N)" @ CALL OUINON(QS,K) à ON K+1 GOTC 'FIN',1530 
1530 LINPUT "Nom de ce fichier?",M$;MS 

1540 CREATE DATA M$ @ ASSIGN #1 TO MS @ PRINT #1;P,N,NS,Y @ 'FIN': 

1550 END SUB 





Affiche Les résultats du tests 





1610 SUB RESULT(TS,MS,1$,P,H,0) à DELAY 2,.2 
1620 PRINT à PRINT TAB(18);TS$&' pour: 1&MS à STD 
1630 PRINT à PRINT P-1;" d.d.l.": à FIX VALCIS) @ PRINT TAB(20);"H = ":H 





1640 PRINT TAB(20);"p = “;Q à AS="SIGNIFICATIF à 5%" @ PRINT 

1650 1F Q>.05 THEN PRINT TAB(25);"Test NON "BAS ELSE PRINT TAB(25);"Test MEAS 
1660 DELAY 0,0 à PRINT USING "78ç1*1)" 

1670 END SUB 





Fonction réponse à (O/N),(C/F) 





1812 SUB OUINON(QS,0) 
1814 DISP Q$ @ I=POS("NOFC",UPRES(KEYWAITS(1,11))-1 à IF 1<0 THEN 1814 
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1816 Q=MOD(1,2) à END SUB 
- Choix des options 





1852 SUB MENU 


1854 QS="Clavier/Fichier (C/F)?" à CALL OUINON(QS,0) à DISP FLAG(3,0) 
1855 ON FLAG(3)+1 GOTO 1856,1870 o ? 

1856 WS=' Impr. MOY-E.T. (O/N)?' à CALL OUINONC(WS,Q) & DISP FLAG(O,0) 
1870 END SUB 





concatène chaque valeur avec Le n° de classe correspondant 





2101 SUB CONCANO(P,NC),YC,3,Y50C)) 

2103 FOR J=1 TO P à FOR 1=1+S TO N(J)+S 
2104 YSCI)=STRSCY(1,1))&STRS(I) 

2105 NEXT I à S=S+N(J) à NEXT J 

2106 END SUB 





identifiées! par ordre croissant (Shell) 





range Les valeurs 






2110 SUB RANGE(N,YS()) à DISP !Ça trie. 
& 'J6': J6=INT(J6/2) à IF J6=0 THEN ‘FIN! 

J2=N-J6 à FOR J=1 TO J2 9 I=J @ 'l': J3=1+J6 
2113 1F VALCYSCI) C1, LENCYS(1))-11)<=VALCYSCJ3) [1,LENCYS(J3))-11) THEN !J' 
2114 SS=YSCI) à YSCI)=YS(J3) à YS(J3)=S$ à I=1-J6 à IF 1>0 THEN ‘l' 








‘Jt: NEXT J à GOTO ‘J6! 






*FIN': DISP TRI TERMINE' à END SUB 
- calcule Le rang des valeurs de chaque classe en tenant compte des exacquo 





2131 SUB RANGVAL(NO,YSC),RC),T) 

2132 INTEGER MCNO+1) 

2133 1=1 à J=J+1 

2134 M(1)=1 

2135 ASS=YS(J)[1,LENCYS(J))-11 à A6S=YSCI)[1,LENCYSC1))-11 ! Si val. égale... 
2136 1F ASS=A6S THEN MCI)=MC1)+1 @ J=J+1 @ GOTO 2135 
2137 IF M(1)<2 THEN P=I @ R(P)=1 à GOTO 2142 

2138 FOR P=1 TO I1+M(1)-1 

2139 R(PI=I+(MC1)-1)/2 

2140 NEXT P 

2141 T=T+M(1)73-MC1) 

2142 19=I+M(1) à 1=19 

2143 IF I<=NO THEN 2134 

2144 END SUB 





- Calcule La somme des rangs des valeurs de chaque classe 





2151 SUB SOMRANG2(P,R9C),NO,YSO),RO,NC),H,T) 
2152 FOR J=1 TOP 
2153 R9(J)=0 
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2154 FOR 1=1 TO KO 

2155 1F VALCYS(I)ILENCYS(1)31)=J THEN R9CJ)=R9CJ)+RÇ1) 
2156 NEXT 1! 

2157 NEXT J 

2158 FOR J=1 TO P 

2159 Sé=SérR9(J)"2/NCJ) 

2160 NEXT J ° 
2161 H=12/CNO*(NO+1))*S6-(3*{N0+1)) 

-(T/CK073-N0)) 

/C 

- calcule La probabilité 








2401 SUB KWPROBA(P,H,0) 

2402 M2=(P-1)/2 à G9=1 à M=INT(M2) à 1F M2=M THEN ‘A! 
2406 IF P-1=1 THEN GOTO 'B' 

2407 FOR 1=1 TO 2*M-1 STEP 2 à G9=G9*1/2 @ NEXT I! 





2410 'B': G9=G9*SOR(PI) à GOTO !C' 





2420 tA': 1F P-1=2 THEN 'C' 
2421 FOR 1=1 TO M-1 à G9=G9*I 






PC-H/2) à 8 
2434 F6=1 à P9=1 à 1=2 


19*2M2 à F5=(H/2)°M2 @ F5=F5*A9/(M2*G9) 





2435 ‘D': F6=F6*H/(P-1+1) à P9=P9+F6 à IF F6*F5>.00000001 THEN 1=1+2 à GOTO ‘D! 
2438 a=1-P9*F5 
2439 END SUB 


ER RRRRRDN M RRDDDD D O 
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LE COIN DES LHEX 

Nous avons eù FRALEX il y a bien Longtemps 

déjà. HP refusent de Le diffuser, sous quelque 

forme que ce soit, nous Le diffusons ce mois-ci 

Voici Le coin des Lhex de ce mois-ci. Au sous forme hexa. Rappelons que FRALEX traduit 
programme: tous Les messages d'erreur en français 
+ KBDLEX (Standard, HPIL et éditeur de texte). IL traduit 
- CALCLEX aussi Les commandes de l'éditeur. Pour La 
- DESAL correspondance, voir JPC No20 


+ FRALEX (Décembre84/Janvier85) page 56. 


Vous avez déjà vu DESAL Le mois dernier. Nous 
vous Le redonnons ce mois-ci, car Michel l'a Faites-en bon usage 


fait reparaître, débogué... Pierre DAVID 





CALL MLEX à SUB MLEX à SFLAG -1 à PURGE AH à INPUT "Nb. d'octets: 
CREATE DATA AH,1,N-4 à A=HTD(ADDRS("AH")) à B=A à GOSUB 130 

a=1 à X=0 à INPUT "000: ",PS;AS à CS=AS à S=0 à GOSUB 90 

Q=2 à X=1 à GOSUB 80 à AS=ASRCS à A=A+37 à N=N*2+37 9 Q=3 à SFLAG 5 à FOR X=2 TO N DIV 16-1 
GOSUB 80 à CS=CSIS*FLAG(S)+1] à POKE DTHSCA),CS à A=A+16-5*FLAG(5,0) à NEXT X à Q=4 

DISP DTHSCX) [3]; 8 INPUT ": ",PS[1,MOD(N,16)1;CS à GOSUB 90 

POKE DTHS(A),CS  POKE DTHS(B),AS à CFLAG -1 END 

DISP DTHSCX)[3]; à INPUT M: ",PS;CS 

DISP DTHSCX) [3]; à INPUT sm ","--";DS 

M=S à FOR Z=1 TO LENCCS) à M=IPCNUM(CS[Z,21)*2+M) @ NEXT Z 

IF D$=DTHS(MOD(M,256))[4] THEN GOSUB 130 à S=M @ RETURN 

DISP “Erreur de somme" à BEEP à PS=CS à POP 8 ON Q GOTO 30,40,50,60 

ps=1 " à RETURN 
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KBDLEX 1D#71 309 octets CALCLEX ID#71 41 octets 021: 15700914D17153E0 
022: 713580C32F04118F 
0123456789ABCDEF sm 0123456789ABCDEF sm 023: 8305013606137135 
024: 1348F064A11CF137 
: B42444C454850202 000: 3414C434C4548502 025: E28837413506D6C6 
802E008581518058 00 02E 008581518058 026: BF28F230F155717F 
E620017333300000 002: 7500017000000000 027: AF2D6EED7ALECF4 
F710000008800000 003: FE0000000800001F 028: 3214ABCA8F841711 
0c10000584244433 004: F318196140001B4E 029: 59316117353E8004 
1FFA6000E5000048 005: 6F2142C451F110AF Le 49007135071348DC 
F871F08FBC6315A0 006: 23088A63EA6E2531 028: 32F041178007D207 
3048824000814A44 007: 7610800 O2C: 3004248F13DB0AD1 
317F948C08FAF531 02D: D881D3102cD48214 
5908F106311F9E6F DESASLEX ID#71 374 octets O2E: B966001715FED4E4 
215141EA89F15148 O2F: C4BFOBFOAOC1CF 15 
DB4ABOBDE6A20803 0123456789ABCDEF sm 030: 17010772EF80C32F 
9450318196140000 031: 0 
BD5317F8FC4631D9 A4 4454351435C45485 8E 4 
D7SAE1B9E6F21521 52 802E009581518058 FRALEX ID#FF 2472 
1AA89F15619160D3 81 1F20017105000000 
060€ 1291A4C3090E FB30000000000000 0123456789ABCDEF 
1291E881108FA0DE 012100FF0019100F 
015248F3E320E280 A1080100F5200500 642514C454850202 
123511331216209F 0F03025200FB1444 802E009581518058 
F2C2148831003048 2455644210714353 55310FFFF00A3400 
160E4294A4370000 4422071445844230 FE000C000DB3001F 
7053432000C17470 7844514424072554 F085C01004840594 
B0D0918172925363 4442501FF4118F83 C402C8008000€511 
FF30481694254700 DBOD60A871451360 851435359474E4D5 
007D534F3000C172 6137C2134135AD20 CcB038F0E410C804 
4010A0F071D132A2 681E81ED7C6BF28F 8F02510C8058F015 
A213137373A6A617 230F109CF4811831 10cB068F00510C80 
B7F78808398989FF 5A32172201011495 78F0B410CB009F0D 
1F769F23200415D2 7E071341CF119808 310CF01926496E6D 
60500713614E9E22 32F08091FB080CF2 2cc712901C60226C 
116114E1619E6CE0 08F670815F18FAA2 6F6175708CE03901 
009060107134D21F 513314648FC70814 CFO7E10CF0492051 
769F2156114D1713 4D30SAOABF 1AB88F 63702CCB069F0931 
021551170136E614 4BF4AGES9CAF4034 0c3179405F627475 
5821850017ACF585 118F13D80D23068A 6D4CC8089039C809 
2514A5D57BBF6851 63A1585175137062 9039C33AIA35FÉD6 
4944454DSTAAFSBS 2769FD68F1C81158 82 D656024656026708 
542525545525D5AF 07 11C613324AC280FF 88 A27966602562727F 
2307253176108003 DE 8F84171071355901 12 6E60856CB0C9FOA& 
048169425F654FF 3B c915991098508F06 OC 10CB0E9F08310CA1 
4A18F7B1818FE838 73 F99341647E20207C 
180C32F041113713 4E 65696E6CB00AFO04 
5068F83DB0AD1D88 C2 10C522ABES5E6964 
1031E20A3302E7D7 D5 : 7080207163702072 
CD4C114BDB8FC70B EO 7484756C513A5S24F 
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01C: 
010: 
OfE: 
OF: 
020: 
021: 
022: 
023: 





65736C656D4CC724 
ABF4527F60702465 
6020656373716765 
637c315AD3040756 
274657C516AD3051 
écé47082708c337A 
A6596F6C6164796F 
6E60246A56020727 
F647F636FÉCESECS 


: OBAD£AC41SA3DEFÉ 
: 4656F07E 10CE0AAD 


3AC12BA8C44OBCE 1 
6960246080716373 
708CB0CAF07110CD 
2DAA145747F6D247 46 
56374702567E6024 


: 60866165747CD2FA 


A459707560246725 
7E69647708025627 
27F6E608C2148514 


: 67F6274708CA1586 


350708369666E2F0 


: 7E10C8068F0F110C 


B088F08010C12988 
c051637024656022 
6F65736C656C8088 
F08110c71C862554 
3545F42554D5CC41 


: 1C635570707F627#4 


7CC12CA024656023 
7570707F62747C61 
3c70456373716765 
602c614C702F6576 
756274756CA15C90 
294F402275617579 
637CFF9695052311 
81351121C0137886 
c11351083D535323 
1425640215DD0090 
903D433FE3F8FC70 
B14E11180A2231FF 
208A6C0088570810 
8FE0010FF0009800 
FE000C0005C9001F 
F106F01804F2A708 
27F6C1110D6E396E 
666E201120D6E337 
5707E2C8030E30C8 
040E40C8050E50C8 AC 
060E60C8070E70c3 59 





290BDE45676E5E4F 18 
GE6D256E 64796562 49 
7C80A0EA0C118031 


: 42776E2D7EC80C0E 


: COCB0D0EDOCSUECE 


EOCS0FOEFOC8001E 


: 01C8011E11C8021E 
: 21CF231AF4070827 


164796F6E 6023789 
ÉTÉES16CE16E647S 
éc81418E457D6082 


: 79617575608051E5 


1C52618E24164747 


: 5627965602661696 


26c656C7171DFE63 


: 797374708D656CF2 


B1AD408D6F 696275 
60296E6378576666 
963716E64756C129 
1BCD4F64657C6560 
2275647962708C80 
ATEA1CC181414640 
296E66716C696465 
éc21C1594E646963 


3 656C62D1D2F8D56E 


6275676963747275 
6D656E647C61E 149 
4E63747E2D8E 056€ 
11F134597075609E 
CF0022051637D9EC 
D012164E4D8EC802 
2085D12C31324857 
SF42544D8ECB242A 
E4F6E60236F62727 
5637076F6E64616E 
63656c8152D2F846 
560236861668E656 
c716263516963796 
5602D41C8072D3FD 
AECD 182905163702 
16373756A702DAEC 
319243416E616C60 
8EC8142264F425D8 
E3E4548545C81823 
E4548545DBE264F4 
25CA1C222545E4DB 
E474F4355524C31D 

2494D4147454D7EC 
31E24553594E474D 
TEC31F2D2F494D41 


47454CFO03245142 
407EC911373537D2 
0727F676E2D8EC81 
23E9E85602465602 
671627E2CD133945 


: 1626E20237471647 
: E207EC3143435471 
: 647E2D7EC11533F4 
: 07E202D430316346 
: 496E60246D0FC807 
: 3D4FD7EC21830FE2 
: 465602D4FCB093D6 





OA 
0A 
OA8: 
0A9: 
OAA 

OAB: 
OAC: 
OAD: 
OAE: 
OAF: 
080: 
081: 





FD8EC31434350708 
36E207EC81B3D6F8 
02568796374716E6 
47C31C3414363618 
3701FC91D3D6F702 
0727F647087608C7 
1E3D6F602F657675 
62747011F3345970 
756D7EC6104455E6 
964708D8E056C921 
AAC4S6TÉE6SE0247 
27F607025C6F6E67 
65756CF124A0527F 
64756364796F6E60 
2D5FC31344051637 
0236D0FC7244BF65 
08279666E20256E6 
02460866165747C3 
2548034162747560 
296E636F6E6E6575 
6c4264BC542727E2 
02c6563647572756 
F2D5FC1174D3F367 OA 
964756C1184D3F3C 
656E647CA1949ELF 
60602562727F6E60 
BCFI1A4D6FAO24727 
F60702762716E646 
CBOB4EB4OS6CEOC4 
092DEE056CB1D487 
45796C6C65É6D6564 
TDEEC42E4D3FBC46 
5602361627163647 
18275637CE0F4E9E 
05601FC110535487 
07E207EC51155051 5A 
62716D6E2D7EC522 03 
58E0516271606E20 51 
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082: 
083: 
084: 
085: 
086: 
087: 
088: 
089: 
OBA: 
088: 
OBC: 
080: 
OBE: 
0BF: 
0c0: 
oc1: 
Oc2: 
Oc3: 
OC4: 
0C5: 
Océ: 
OC7: 
0c8: 
0c9: 
OCA: 
Oc8: 
Occ: 
QcD: 
OCE: 
OCF: 
000: 
O1: 
002: 
003: 
O0: 
Lo 
O0: 
00 
O0! 
Lo) 
OD, 
On! 
on 
Oo! 
QDE: 
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2D616E6175716E64 
7011353651627E2D 
TECA145984960827 
162736869656c515 
5545F65736865607 
Ec91657F40708271 
ÉE6LGSÉDEEC81758 
F407082716475657 
2TDEECF18584564D 
4027525E402C4F20 
A3F1031954341627 
47S6DDEC32A5BD4S 
962756A702C61602 
3616274756C31854 
5436279647DCEC31 
C546508279666DCE 
C11D53C4563647DC 
EC11E530527F647D 
CEC31F5464080727 
FéDCECF006234164 
TDCECC116A059637 4E 
4756026696E69656 9D 
CA15E60282079637 1C 
4TS60DE092CFI6E8 
B44080716373756D 
656E64702CC17EA0 
2E6F6E6026716C69 94 
64656CC18EA02E6F 
6E6024727F657670 
8cc19EA024656024 
6F6E6E6085637CA1 
AE9467208C608D65 
6E64737C21BE5023 
716E63702C92CEAA 
30214C69676E6560 
2564750254E444C4 
E4C91DE002F35071 
627D69602F2C61EE 
70216474756E6465 
7C41FE6542727565 
72702C810F856026 
6963686965627C81 
1F80296C6C696369 
647560412F644560 
71637E2020013F44 


527F60702C814F84 
52514E43564F425D 
4C615F7083627964 
75727560416F6649 
63686965627CFF96 
9505231181351121 
co137886C1135108 
3013030314256402 
15DD00318F965963 
28F38FFF81153230 
10E029071174311 
0148966801C4522D 
B10AD2307D5328F8 
8FD791111AD75717 
580174311014D1CB 
15D00090946D433F 
E3F8FC7081425110 
AEOFOBAC54110824 
100318596633981E 
211A8F8148112810 
A8F73321FE400118 
8F534B112A108FE0 
0071450375FFC908 
3456555810083556 
5458100025565458 
70002655555A7008 
3655555A10083645 
454A30000497240 
000808094A2C1808 
14A4642420083554 
55581000054C7140 
000c3142404C7008 
3241414A7000FFFO 
000000FE000C0005 
F2001FF185801884 
6496E69602CF0182 
6496E6D4BCF1288B 
4435456414046524 
94253454C00381F3 
O2D68C21482E4F6D 
éD4BOA3C21585C49 
676E65602CE06833 
4D646A3C9278A355 
707072756373796F 
6E65F302F4F2E4A3 


01 
3€ 
42 
24 


01 
98 
45 
61 
n 
87 
40 
7 
AD 
F6 


2 
A2 
81 
83 
66 
E2 
B8 





Cco882F4E445CC19 
734F6DÉDÉ16E646 
SéF07E10CC1A8A54 
60236F6572737E2 
EZE2CU4CEAS4SLES 
0505145435140525 
A5434F434SLALSSD 
414350474514C425 
C4056455CD2D8A64 
573796F6E602E302 
5302766963686965 
62737C33E8AC4963 
7475637022756060 
TAE202D657C64796 
07c65637C32F88D9 
4E63756274702071 
67656E2E2E201109 
D28044D380D5C711 
9D2B035D3838582D 
505C8029045c8139 
86402B5E6D585744 
2D5C8049014c0159 
4B5C6D502C4CE069 
D28065D58C117902 
B024D380D5CE089D 
28094D5BCA299028 
BFB5F3D50225F236 
8613F236862385F2 
D5CF1A9D2BAB5F3D 
50234F2368685F2D 
5c01B94B5C6D5025 
4C41286B5468566D 
SD502c813880285C 
366963686E2E3C01 
4B10246F00F10C41 
SB60285E6D5B5E4D 
ScFF969505231181 
351121CD1378860C1 
1351083003432314 
25640215DD009090 
3D433FE3F8FC7081 
4E11180A22310F20 
8A6C00885708108F 
EOOFF 
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